aoc2020/split.hs

split :: Eq a => a -> [a] -> [[a]]
split _ [] = []
split d as = chunk : (split d rest)
  where
    chunk = takeWhile (/= d) as
    rest = drop 1 $ dropWhile (/= d) as