你能帮我重构这段 clojure 代码来生成一个序列吗？答案

【问题标题】：Can you help me refactor this piece of clojure code to produce a seq?你能帮我重构这段 clojure 代码来生成一个序列吗？
【发布时间】：2010-12-26 16:17:14
【问题描述】：

我想生成一个序列，以后可以对其进行（映射）。它应该是这样的：

((0 0) (0 1) (0 2) (0 3) ... (7 7))

我现在必须做的那段代码看起来非常非常难看，以产生如此简单的结果。我需要一些帮助才能弄清楚这一点。

(loop [y 0 x 0 args (list)]  
  (if (and (= y 7) (= x 7))  
    (reverse (conj args (list y x)))  
    (if (= x 7)  
    (recur (+ y 1) 0 (conj args (list y x)))  
    (recur y (+ x 1) (conj args (list y x))))))

【问题讨论】：

标签： refactoring clojure

【解决方案1】：

(let [my-range (range 0 8)]
  (for [i my-range
        j my-range]
      (list i j)))


=> ((0 0) (0 1) (0 2) (0 3) (0 4) (0 5) (0 6) (0 7)
    (1 0) (1 1) (1 2) (1 3) (1 4) (1 5) (1 6) (1 7)
    ...
    (7 0) (7 1) (7 2) (7 3) (7 4) (7 5) (7 6) (7 7))

for 类似于doseq，但它收集结果：

(for   [i [1 2 3]] i)           => (1 2 3)
(doseq [i [1 2 3]] (print i))   => nil

【讨论】：

较短的版本：(for [i (range 8) j (range 8)] (list i j))

【解决方案2】：

有一个库函数可以做到这一点：

(use '[clojure.contrib.combinatorics])
(cartesian-product (range 0 8) (range 0 8))

【讨论】：