ふつける練習問題その２

1 -- 標準入力から読んだワード数を数えるコマンド countWords
2 main = do cs <- getContents
3           print $ countWords $ lines cs
4 
5 countWords :: [String] -> Int
6 countWords [ ] = 0
7 countWords (cs:c) = (length $ (words cs)) + countWords c