1

为什么我的 println （示例的最后一行）不像列表理解？我正在尝试使用以下代码来解决 Clojure 中 Project Euler 的问题 #2：

(def fibsq [0 1])

(defn second-to-last [sq]
  (nth sq (- (count sq) 2)))

(second-to-last fibsq)

(defn add-last-two [sq]
  (+ (last sq) (second-to-last sq)))

(defn add-to-fibsq [sq]
  (if (< (add-last-two sq) 100)
    (add-to-fibsq (conj sq (add-last-two sq)))
    sq))

;; putting it all together
(add-to-fibsq fibsq)

(println [x (add-to-fibsq fibsq) :when (even? x)])

我得到的输出如下：

（定义 ||[0 1]|| [0 1]）

(defn 倒数第二个 [||[0 1 1 2 3 5 8 13 21 34 55 89]||] (nth ||[0 1 1 2 3 5 8 13 21 34 55 89]|| (- (计数 ||[0 1 1 2 3 5 8 13 21 34 55 89]||) 2)))

(倒数第二个||[0 1]||)|| => 0||

(defn add-last-two [||[0 1 1 2 3 5 8 13 21 34 55 89]||] (+ (last ||[0 1 1 2 3 5 8 13 21 34 55 89]||) （倒数第二个 ||[0 1 1 2 3 5 8 13 21 34 55 89]||)）

(defn add-to-fibsq [||[0 1 1 2 3 5 8 13 21 34 55 89]||] (if (< (add-last-two ||[0 1 1 2 3 5 8 13 21 34 55 89]||) 100) (add-to-fibsq (conj ||[0 1 1 2 3 5 8 13 21 34 55 89]|| (add-last-two ||[0 1 1 2 3 5 8 13 21 34 55 89]||))) ||[0 1 1 2 3 5 8 13 21 34 55 89]||))

;; 把它们放在一起 (add-to-fibsq ||[0 1]||)|| => [0 1 1 2 3 5 8 13 21 34 55 89]||

(println [x (add-to-fibsq ||[0 1]||) :when (even?x)])|| => java.lang.RuntimeException: Unable to resolve symbol: x in this context, 编译:(NO_SOURCE_PATH:19:2)||

这不是列表推导的工作方式吗？

4

1 回答 1

4

Clojure 没有像您在最后一行中尝试使用的独立列表理解。您需要for在最后一个表达式的开头调用 to 。

(println (for [x (add-to-fibsq fibsq) :when (even? x)] x))

它是for为调用结果中的每个条目将值绑定到 x 的函数(add-to-fibsq fibsq)。在这种情况下，甚至for超过了要求 

(println (filter even? (add-to-fibsq fibsq)))
于 2012-06-26T15:45:38.757 回答