Clojure中的相互递归定义

Mutually recursive definitions in Clojure

如何在Clojure中进行相互递归定义？

这是Scala中的代码，用于查找使用递归定义的质数：

1
2
3
4
5
6
7

val odds: Stream[Int] = cons(3, odds map { _ + 2 })
val primes: Stream[Int] = cons(2, odds filter isPrime)
def primeDivisors(n: Int) =
primes takeWhile { _ <= Math.ceil(Math.sqrt(n))} filter { n % _ == 0 }
def isPrime(n: Int) = primeDivisors(n) isEmpty

primes take 10

我将此翻译为Clojure：

1
2
3
4
5
6
7
8
9

(def odds (iterate #(+ % 2) 3))
(def primes (cons 2 (filter is-prime odds)))
(defn prime-divisors [n]
(filter #(zero? (mod n %))
(take-while #(<= % (Math/ceil (Math/sqrt n)))
primes)))
(defn is-prime [n] (empty? (prime-divisors n)))

(take 10 primes)

但是在Clojure REPL中一个接一个地定义会给出

1	java.lang.Exception: Unable to resolve symbol: is-prime in this context (NO_SOURCE_FILE:8)

我写(def primes (cons 2 (filter is-prime odds)))后的

。

在Clojure中是否可以进行相互递归定义？