ch01/1_a_3.hs


1
2
3
4
5

-- The words function counts the number of words in a string. Modify the WC.hs
-- example to count the number of words in a file.

main = interact wordCount
    where wordCount input = show (length (words input)) ++ "\n"