11 lines
214 B
Haskell
11 lines
214 B
Haskell
|
module Day6 (lines') where
|
||
|
|
|
||
|
|
lines' = joinLines . lines
|
||
|
|
|
||
|
|
joinLines = foldl parse [[]]
|
||
|
|
where
|
||
|
|
parse [[]] s = [[s]]
|
||
|
|
parse [a] "" = [[], a]
|
||
|
|
parse [a] s = [a ++ [s]]
|
||
|
|
parse (a:as) s = parse [a] s ++ as
|