Clojure斐波那契函数无法处理≥2的值问题求助

你的Clojure斐波那契函数在处理≥2的输入时无法正常求值，核心原因是cond分支中没有正确调用双参数版本的fib函数。

错误点详解 #

在单参数fib的cond逻辑里，当(>= x 2)条件成立时，你写的代码是：

(>= x 2) fib (- x 2) [1 1]

这不符合Clojure的语法规则：cond的每个子句是「条件 + 单个表达式」，这里的写法会被解析为：条件满足后直接返回fib函数本身（而非调用它），后面的(- x 2)和[1 1]属于多余的无效代码，最终输出的就是函数对象的字符串表示（也就是你看到的图片内容）。

修复后的代码 #

只需给双参数调用加上一层括号，确保正确触发递归逻辑：

((fn fib
   ([x] (cond
          (zero? x) []
          (= x 1) [1]
          (>= x 2) (fib (- x 2) [1 1]))) ; 新增括号，正确调用双参数fib
   ([x seq] (if (zero? x)
              seq
              (recur (dec x) (conj seq (+ (last seq) (nth seq (- (count seq) 2)))))))) 3)

修复后输入3，会返回预期的斐波那契序列[1 1 2 3]。

额外优化建议 #

• 目前用last和nth取序列倒数两个元素的效率较低，长序列场景下会反复遍历序列。可以改为递归时直接传递前两个数值，避免遍历：

((fn fib
   ([x] (cond
          (zero? x) []
          (= x 1) [1]
          :else (fib (- x 2) 1 1 [1 1])))
   ([x a b seq] (if (zero? x)
                  seq
                  (recur (dec x) b (+ a b) (conj seq (+ a b)))))) 3)

内容的提问来源于stack exchange，提问作者Nikola