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