久しぶりにがんばってみたら、結構縮んだ♪

前回まではここで書いています。

http://betweens.blog.shinobi.jp/Entry/48/

【修正後1】 244 バイト

b 1=""
b x="es"
s n=show n++" shinichiro"++b n++" of hamaji"
w n=s n++" on the wall"
a#b=a++", "++b++".\n"
f 1="Go to the store and buy some more"#w 99
f x="Take one down and pass it around"#w(x-1)
main=mapM putStrLn[w n#s n++f n|n<-[99,98..1]]

【その他1】 246 バイト: ラムダ使っても短くならない。。。

b 1=""
b x="es"
s n=show n++" shinichiro"++b n++" of hamaji"
w n=s n++" on the wall"
a#b=a++", "++b++".\n"
f 1="Go to the store and buy some more"#w 99
f x="Take one down and pass it around"#w(x-1)
main=mapM(putStrLn.(\n->w n#s n++f n))[99,98..1]