Clojure 递归与数据结构

Question

我已经尝试过此 Clojure 例程的多个版本，但它总是会导致空指针。我怎样才能消除这些错误？

(defn loopthru [n] (
  (if-not (empty? n) (
       (println (first n))
       (loopthru (rest n))
  ))
))
(loopthru [1 2 3 4 5 6])

谢谢，格雷格

Answer 1

正如每个人都指出的那样，您的 if-not 宏周围有双括号，这是不正确的。 （与Scheme不同，双括号在Clojure中很少是正确的。）但是你的if特殊形式还存在另一个问题。应该有一个 do 特殊形式来按顺序计算 s 表达式。

(defn loopthru [n]
  (if-not (empty? n)
    (do (println (first n))
     (loopthru (rest n)))))

还有其他一些事情。如果 if 语句中没有 else 块，请使用 when / when-not。事实上，在这种情况下使用 when-not 消除了对 do 的需要，因为 s 表达式中的条件没有歧义。我必须提到的强制性注释是，在这种情况下递归会占用堆栈空间，因此请使用 recur 代替

(defn loopthru [n]
  (when-not (empty? n)
    (println (first n))
    (recur (rest n))))

Answer 2

(defn loopthru [col]
  (doseq [n col] (println n)))

(defn loopthru [f col]
  (doseq [item col] (f item)))

Answer 3

应省略函数体周围的一对括号。然后它就会起作用。