countword.hs

main = do cs <- getContents
          print $ length $ words cs

[Sample Code Index] [Support Site Top]