在clojure中执行循环时出现空指针异常

Question

(defn my-loop [x] 
            (cond (> x 1)
                  ((println x)
                  (my-loop (- x 1)))
            ) 
    )

;; => #'user/my-loop
user> (my-loop 10)

为什么在执行此函数时会出现空指针异常？这不是正常的递归吗？

Answer 1

您正在(println x)使用附加的括号层调用 return 。println返回nil所以调用它会导致NullPointerException.

要评估一个以上的表单，其中只需要一个do表单，请使用特殊表单，它评估任意数量的表单并返回最后一个的值：

(defn my-loop [x]
  (cond (> x 1) (do
                  (println x)
                  (my-loop (- x 1)))))

在这种情况下，when可以更换一个武装cond和do

(defn my-loop [x]
  (when (> x 1)
    (println x)
    (my-loop (- x 1))))