12 lines
192 B
Haskell
12 lines
192 B
Haskell
module Lib (split) where
|
|
|
|
split :: Eq a => a -> [a] -> [[a]]
|
|
split del =
|
|
foldr
|
|
( \c (x : xs) ->
|
|
if c == del
|
|
then [] : x : xs
|
|
else (c : x) : xs
|
|
)
|
|
[[]]
|