recursion - clojure 惰性序列和 letfn

Question

我正在 Clojure 中尝试一些惰性流。如果我这样做:

(defn ints-from [n]
   (cons n (lazy-seq (ints-from (inc n)))))

和

(def nats (ints-from 0))

没关系，我可以这样做:

(take 5 nats)

现在我试图将 2 个函数封装在 1 中:

(defn natz[]
( letfn   [(aux [n]((cons n (lazy-seq (aux (inc n)))))) ] (aux 0) ))

这似乎可以编译，但没有达到我的预期。

(take 4 natz)

给出:

(user=> IllegalArgumentException Don't know how to create ISeq from: user$natz    
clojure.lang.RT.seqFrom (RT.java:494)

我错过了什么？

Answer 1

letfn定义中少一个括号，调用natz函数多一个括号

(defn natz[]
  (letfn [(aux [n] (cons n (lazy-seq (aux (inc n)))))]
    (aux 0)))

示例用法:

(take 4 (natz))
=> (0 1 2 3)