Clojure 中的重复调用错误

Question

我正在尝试从输入中读取数字并将它们打印回 Clojure，直到我读取到数字 42。确保我知道如何读取输入的非常基本的事情。取自codechef

我写了这个程序。可能不是很好的clojure。

(defn universe
  []
  (let [num (line-seq (java.io.BufferedReader. *in*))]
    (if (not= num 42)
      (do
        (println num)
        (recur (universe))
        )
      )
    )
  )

我的理解是line-seq 懒惰地从给出的任何读者评估。在这种情况下是标准输入。

所以我让它成为数字。然后如果 num 不是 42 我打印它然后递归调用 Universe。但它会抛出异常

Mismatched argument count to recur, expected: 0 args, got: 1,

我见过example 并且 recur 确实需要一个参数。看着official documentation，我看不到它的语法。那么为什么会出现这个错误呢？

Answer 1

recur 不使用要重复到的位置的名称。相反，recur 特殊形式会跳回到最接近的函数或loop 表达式，以更接近者为准。然后它传递不同的参数。这使您可以在处理数据时重复执行相同的代码块，并且没有函数调用开销。

在您的情况下，它会重复到函数调用：

(defn universe [] ...

并试图向它传递一个参数，但由于函数 Universe 不接受任何参数而失败。也许您打算在 if 周围放置一个 loop 表达式？

user> (defn universe
        []
        (let [numbers (line-seq (java.io.BufferedReader. *in*))]
          (loop [numbers numbers]
            (let [num (first numbers)]
              (if (not= (Integer/parseInt num) 42)
                (do
                  (println num)
                  (recur (rest numbers))))))))
#'user/universe
user> (universe)
3   ;; typed 3 
nil ;; typed 42

或者您打算在函数顶部重复执行，在这种情况下，只需调用 (recur) 而不是 (recur universe)