diff --git a/split.hs b/split.hs deleted file mode 100644 index 09b0359..0000000 --- a/split.hs +++ /dev/null @@ -1,6 +0,0 @@ -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