Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
6 lines (4 sloc) 123 Bytes
main = do cs <- getContents
print $ countWords cs
countWords :: String -> Int
countWords cs = length $ words cs