[Haskell Practice] split a list into sub-lists using a set of separators.

split.hs

split :: (Eq a) => [a] -> [a] -> [[a]]
split _ [] = [[]]
split sep (list_head:list_tail) =
    if list_head `elem` sep
        then []:splited_tail
        else (list_head:(head splited_tail)):(tail splited_tail)
    where splited_tail = split sep list_tail

main = do
    putStr (show (split " " "this is a book"))