b 1=""
b x="es"
m x=show x++" shinichiro"++b x++" of hamaji"
o x=m x++" on the wall"
a x=o x++", "++m x
f[1]=a 1++".\nGo to the store and buy some more, "++o 99++"."
f(x:s)=a x++".\nTake one down and pass it around, "++o(x-1)++".\n\n"++f s
main=putStrLn$f[99,98..1]
その後、以下のように書き換え。
b 1=""
b x="es"
m x=show x++" shinichiro"++b x++" of hamaji"
w x=m x++" on the wall"
f 1=".\nGo to the store and buy some more, "++w 99++".\n"
f x=".\nTake one down and pass it around, "++w(x-1)++".\n\n"
main=mapM putStr$map(\x->w x++", "++m x++f x)[99,98..1]
最終的には、ここまで縮めた。
b 1=""
b x="es"
m x=show x++" shinichiro"++b x++" of hamaji"
w x=m x++" on the wall"
f 1=".\nGo to the store and buy some more, "++w 99++"."
f x=".\nTake one down and pass it around, "++w(x-1)++".\n"
main=mapM putStrLn[w n++", "++m n++f n|n<-[99,98..1]]
