[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
r x=reverse$show xl x=if(show x)==(r x)then(r x)else l(x +(read$r x))main=mapM putStrLn[l n|n<-[1..195]] さすがに縮められそうだ。。。
