這些功能函數叫什麼？

Question

我在尋找實現此功能的方法：

list = [a b c d e f] 
foo(list, 3) = [[a d] [b e] [c f]] 

一個潛在的解決方案是：

foo(list,spacing) = zip(goo(list,spacing)) 

其中，例如，

goo([a b c d e f],3) = [[a b c] [d e f]] 

什麼是foo和goo通常被稱爲，所以我可以尋找現有的解決方案，而不是重新發明輪子？

備註：我沒有試圖用文字解釋，而是展示了希望更容易獲得的例子。用於更廣泛理解的任意語法。

Answer 1

您可以使用partition：

(partition 3 '[a b c d e f]) 
=> ((a b c) (d e f)) 

(partition 2 '[a b c d e f]) 
=> ((a b) (c d) (e f)) 

編輯：

(apply map list (partition 3 '[a b c d e f])) 
=> ((a d) (b e) (c f)) 

Answer 2

我不認爲這是對於一個內置的功能。實施起來很簡單，很好。

我知道你不想執行，但標籤中的一個是哈斯克爾所以也許你想看到這個

p :: Int -> [a] -> [[a]] 
p n xs = [ [x | (x ,y) <- ys , y `mod` n == i] | i <- [0 .. n - 1] , let ys = zip xs [0 .. ]] 

這是相當實用。

Answer 3

您的goo功能是drop與翻轉的參數。鑑於這種情況，你可以實現foo幾乎就像你在你的問題說：

let foo list spacing = zip list (drop spacing list) 

這仍然沒有確切地給你需要的，雖然結果，但接近：

Prelude> foo "abcdef" 3 
[('a','d'),('b','e'),('c','f')] 

---

編輯：

仔細閱讀，您的goo功能是splitAt與翻轉的參數。鑑於此，foo可以這樣定義：

let foo list spacing = (uncurry zip) $ splitAt spacing list 

這是相同的：

let foo list spacing = let (left, right) = splitAt spacing list 
         in zip left right