Solution to number two here: http://book.realworldhaskell.org/read/functional-programming.html#id591678

SplitWith.hs

splitWith :: (a -> Bool) -> [a] -> [[a]]
splitWith p l
  | null l    = []
  | null xs   = splitWith p $ tail xs'
  | otherwise = xs : splitWith p xs' where
    (xs, xs') = break p l