Big day!

[advlib.git] / src / Advent / Parse.hs

module Advent.Parse (clumps) where

clumps :: [String] -> [[String]]
clumps [] = []
clumps lines =
  let (x, xs) = break (=="") lines
  in x : clumps (drop 1 xs)