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