是什么让这种Clojure功能变慢了？

我正在Clojure从事Project Euler问题14的工作。我有一个很好的通用算法，并且得到了正确的结果，但是我很难理解为什么我的函数与Java中的等效函数相比（我认为是这样）如此之慢。这是我的Clojure函数，用于从给定的起始编号获取Collat​​z链的长度：

(defn collatz-length
  [n]
  (loop [x n acc 1]
    (if (= 1 x)
      acc
      (recur (if (even? x)
               (/ x 2)
               (inc (* 3 x)))
             (inc acc)))))

这是我执行相同操作的Java函数：

public static int collatzLength(long x) {
    int count = 0;
    while (x > 1) {
        if ((x % 2) == 0) {
            x = x / 2;
        } else {
            x = (x * 3) + 1;
        }
        count++;
    }
    return count;
}

为了计时这些功能的执行时间，我使用了以下Clojure代码：

(time (dorun (map collatz-length (range 1 1000000))))

以及以下Java代码：

long starttime = System.currentTimeMillis();

int[] nums = new int[1000000];
for (int i = 0; i < 1000000; i++) {
    nums[i] = collatzLength(i+1);
}

System.out.println("Total time (ms) : " + (System.currentTimeMillis() - starttime));

Java代码在304 ms我的计算机上运行，但Clojure代码采用4220 ms。是什么导致此瓶颈，如何改善Clojure代码的性能？