countline.hs

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

[Sample Code Index] [Support Site Top]