ifukazoo/split.hs

## 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