Split с foldr в Haskell

Question

мне нужно запрограммировать функцию split с помощью foldr

split :: Eq a ⇒ a → [a] → [[ a ]] 

Примеры:

split '/' ”hello/my/friends” ----> [”hello”,”my”,”friends”] 

Вот что я пытался:

split :: Eq a ⇒ a → [a] → [[ a ]] 
split str delim = let (start, end) = break (== delim) str 
       in start : if null end then [] else groupBy (tail end) delim 

Answer 1

Нечто подобное должен работать:

foldr (\c (x:xs) -> 
    if c == '/' 
    then "":x:xs 
    else (c:x):xs 
) [""] "hello/my/friends" 

Обобщенная:

split on = foldr (\c (x:xs) -> 
    if c == on 
    then []:x:xs 
    else (c:x):xs 
) [[]]