cacharle · August 19, 2019 16:25
diff --git a/split.hs b/split.hs
 split :: Eq a => a -> [a] -> [[a]]
 split _ [] = [[]]
 split delim str = 
  let (before, remainder) = span (/= delim) str
  in  before:case remainder of
                    [] -> []
                    x  -> split delim $ tail x
	split :: Eq a => a -> [a] -> [[a]]
	split _ [] = [[]]
	split delim str =
	let (before, remainder) = span (/= delim) str
	in before:case remainder of
	[] -> []
	x -> split delim $ tail x