使用與foldl功能

Question

變換字符串的列表元組的名單上有以下功能：

fn :: [String] -> [(a,b,c)] 
fn lst = case lst of 
    [] -> [] 
    (a:b:c:xs) -> (a,b,c) : fn xs 

我想用foldl或foldr

Answer 1

寫這個功能我想寫這個功能使用foldl或foldr

這有點難看，但它在技術上解決了它w第i個foldr（這將是容易以使其適應foldl）：

fn :: String -> [(Char, Char, Char)]                                          
fn s = snd $ foldr toTriples ([], []) s where 
    toTriples :: Char -> (String, [(Char, Char, Char)]) -> (String, [(Char, Char, Char)]) 
    toTriples c (cur, tups) | length cur < 2 = (c:cur, tups) 
    toTriples c (cur, tups) = ([], (c, cur!!0, cur!!1):tups) 

作爲累加器，它使用一對cur，元組的當前部分被掃描，並tups，元組的列表。

• 如果cur的長度小於2，則它將當前字符添加到它。

• 如果cur的長度爲2，它將創建一個元組並將其前置到元組列表中。