Clojure Core或Contrib中的Zip函数是否有等价物?

在Clojure中,我想结合两个列表来给出一个列表对,

> (zip '(1 2 3) '(4 5 6))  
((1 4) (2 5) (3 6))

在Haskell或Ruby中,函数称为zip。 实现它并不困难,但我想确保在Core或Contrib中不会缺少函数。

Core中有一个zip命名空间,但它被描述为提供对Zipper功能技术的访问,这看起来并不是我所追求的。

在Core中以这种方式组合2个或更多列表是否有等效函数?

如果没有,是不是因为有一种惯用的方法使得该功能不需要?


(map vector '(1 2 3) '(4 5 6))

做你想做的事情:

=> ([1 4] [2 5] [3 6])

Haskell需要zipWithzipWith3zipWith4 ,...)函数的集合,因为它们都需要具有特定的类型; 特别是他们接受的输入列表数量需要加以修正。 (该zipzip2zip3 ,...系列可以看作是一个专业化zipWith家族几倍的常见的情况)。

相比之下,Clojure和其他Lisp对变量函数有很好的支持; map就是其中之一,可以用类似于Haskell的方式来“捣蛋”

zipWith (x y -> (x, y))

在Clojure中构建“元组”的惯用方法是构建一个短矢量,如上所示。

(为了完整性,请注意Haskell带有一些基本的扩展允许变量arity函数;然而,使用它们需要对语言有很好的理解,而且,Haskell 98可能根本不支持它们,因此固定的arity函数是可取的对于标准库。)


(map vector [1 2 3] [4 5 6])

(partition 2 (interleave '(1 2 3) '(4 5 6))) 
=> ((1 4) (2 5) (3 6))

或更一般地说

(defn zip [& colls]
  (partition (count colls) (apply interleave colls)))

(zip '( 1 2 3) '(4 5 6))           ;=> ((1 4) (2 5) (3 6))

(zip '( 1 2 3) '(4 5 6) '(2 4 8))  ;=> ((1 4 2) (2 5 4) (3 6 8))
链接地址: http://www.djcxy.com/p/38575.html

上一篇: Is there an equivalent for the Zip function in Clojure Core or Contrib?

下一篇: Common programming mistakes for Clojure developers to avoid