拆分與哈斯克爾

Question

foldr相似，我需要使用foldr

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

實例編程功能split：

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 
) [[]]