No title

Anonymous Coward 2018-03-08 06:08:11.725983 UTC

1splitBy :: String -> (Char -> Bool) -> [String]
2splitBy s f = takeWhile (not . f) s : myLines ( dropWhile f $ dropWhile (not . f) s)
3
4myWords s = splitBy s (== ' ')
5myLines' s = splitBy s (== '\n')