17 lines
303 B
Haskell
17 lines
303 B
Haskell
module Lib (chunks, split) where
|
|
|
|
chunks n xs
|
|
| null xs = []
|
|
| otherwise = head : chunks n tail
|
|
where (head, tail) = splitAt n xs
|
|
|
|
split :: Eq a => a -> [a] -> [[a]]
|
|
split del =
|
|
foldr
|
|
( \c (x : xs) ->
|
|
if c == del
|
|
then [] : x : xs
|
|
else (c : x) : xs
|
|
)
|
|
[[]]
|