这些功能函数叫什么？

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