[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
f n[x]=show n++[x] f n(x:s)|x==head s=f(n+1)s|1>0=f n[x]++f 1s main=interact$unlines.take 12.iterate(f 1)
f n[x]=show n++[x] f n(x:s)|x==s!!0=f(n+1)s|1>0=f n[x]++f 1s main=interact$unlines.take 12.iterate(f 1)
