调用所有可能的向量组合的函数

Question

自从我继续我的一位同事的项目以来,过去一周我一直在使用Clojure.我们正在使用Clojure生成一些文件.我正在尝试重构一些代码,因为他必须快速完成并硬编码大部分值.所以我有:

(defn gen [a b] (...))

我想用类似的东西包装它

(defn gen-vector [a-vec b-vec] (...))

gen_vector 将成为我的"主要",这意味着我将通过编写类似的东西来触发执行

(gen-vector [1 2] [3 4])

我希望得到所有的组合gen,比如执行:

(gen 1 3)
(gen 1 4)
(gen 2 3)
(gen 2 4)

到目前为止我所拥有的是什么

(map #(gen %1 %2) countries fieldchar)

但是,这并没有做到这一点,因为它只做1-3,2-4.有关如何实现这一点的任何想法？

问候,迪米

Answer 1

要获得懒惰的seq值(gen x y),请使用

(for [x x-vec
      y y-vec]
  (gen x y))

如果gen是一个函数调用没有有用返回值的副作用,你需要替换for为doseq.

for并且doseq在它们的基本形式¹中,为输入序列的笛卡尔积中的每个元组评估它们的主体.(map f xs ys ...)相反,以锁步方式遍历序列,因此仅使用序列中匹配位置处的元素元组.

¹还有一个用于过滤(:when)的迷你语言,早期停止循环(:while)并:let从绑定向量中引入本地绑定().有关(doc for)语法的概述,请参阅我最近的答案,以获取涉及:when和的示例:while.