gistfile1.hs

splitBy :: (a -> Bool) -> [a] -> [[a]]
splitBy _ [] = []
splitBy predicate list = [left] ++ splitBy predicate remaining
        where (left, remaining) = break predicate list

-- example:
--   splitBy (==20) [0, 1, 2, 3, 4, 67, 20, 5, 6, 9, 20, 100, 200]
-- should produce:
--   [[0, 1, 2, 3, 4, 67], [20, 5, 6, 9], [20, 100, 200]]
-- instead produces:
--   [[0,1,2,3,4,67],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],...]

-- solved by (also changed the behaviour to exclude the delimiter from the output):
splitBy' :: (a -> Bool) -> [a] -> [[a]]
splitBy' _ [] = []
splitBy' predicate list = if (null left) then (splitBy' predicate $ tail remaining) else ([left] ++ splitBy' predicate remaining)
        where (left, remaining) = break predicate list