Question

Hello作为the 4Clojure problem set的一部分我试图返回前N个斐波纳契数的列表。我已经使用非匿名函数成功实现了这个：

#(
  (letfn [
          (nth-fibo [i]
            (cond
              (= i 1) 1
              (= i 2) 1
              :else (+ (nth-fibo (- i 1)) (nth-fibo (- i 2)))))
          (fibos [i]
            (loop [x i]
              (when (> x 0)
                (cons (nth-fibo x) (fibos (- x 1))))))
          ]
    (reverse (fibos %))))

但是，我必须向4Clojure评估者提供一个可调用的函数来传递测试。我试图这样做：

{{1}}

导致错误：

java.lang.ClassCastException：clojure.lang.PersistentList不能施放到clojure.lang.IFn

Answer 1

您的匿名函数周围有一组额外的括号导致问题。看看是否有效：

#(letfn [(nth-fibo [i]
           (cond
             (= i 1) 1
             (= i 2) 1
             :else (+ (nth-fibo (- i 1)) (nth-fibo (- i 2)))))
         (fibos [i]
           (loop [x i]
             (when (> x 0)
               (cons (nth-fibo x) (fibos (- x 1))))))]
   (reverse (fibos %)))

同一问题的较小复制品：

#(str %)
=> #object[playground.so$eval1751$fn__1752 0x718c0dd5 "playground.so$eval1751$fn__1752@718c0dd5"]
(*1 1)
=> "1"
#((str %))
=> #object[playground.so$eval1767$fn__1768 0x5375a819 "playground.so$eval1767$fn__1768@5375a819"]
(*1 1)
ClassCastException java.lang.String cannot be cast to clojure.lang.IFn  playground.so/eval1767/fn--1768 (so.clj:21)

clojure.lang.PersistentList无法强制转换为clojure.lang.IFn

1 个答案: