Clojure:来自不同大小的列表的更惯用的元素配对？

Question

我想创建一个由 cols 和 patch 组成的列表。 cols 会有更多的元素。 patch 中的元素将在配对中重复。

例如，

(element-wise-patch '(1 3 5 7 9) '(2 4) '())
([1 2] [3 4] [5 2] [7 4] [9 2])

这是我实现语义的尝试。我希望学习更惯用、更简单的解决方案。

(defn element-wise-patch [cols patch patched]
      (if (<= (count cols) (count patch))
        (concat patched (map vector cols patch))
        (let [[compatible remaining] (split-at (count patch) cols)]
          (element-wise-patch remaining patch (concat patched (map vector compatible patch)))))

我觉得可能已经存在可以进行此类修补配对的构造。另外，我的描述可能不足以关联类似的解决方案。

请给我一些指示，或者帮助我更清楚地定义我的问题。

预先感谢您的帮助!

Answer 1

很简单:

(map vector [1 3 5 7 9] (cycle [2 4]))