ch01/1_a_4.hs


1
2
3
4
5

-- Modify the WC.hs example again, to print the number of characters in a file.

-- Type of 'input' is String. Its length is the number of characters.
main = interact wordCount
    where wordCount input = show (length input) ++ "\n"