Question

我正在尝试实现一种计算伯努利数的递归算法。但是，我得到“被零除”，并且我不知道为什么。所以我需要一些逻辑上的帮助。

在使用bernoulli 0的程序运行时，它显示1，因此if语句似乎起作用。 Bur不用于参数> 0

感谢您的帮助！

(defn binom [r, n, k]
  (if (= k 0) r ;Om k == 0, returnera r
  (binom (* r (/ (- n (+ k 1)) k )) n (- k 1))
))

(defn bernoulli [n]
  (if (= n 0) 1
    (- 1 (apply + (for [k (range n)] (/ (* (binom 1 n k) (bernoulli k)) (- n (+ k 1)))))))
  )

(println (bernoulli 4))

我收到错误消息：

Exception in thread "main" java.lang.ArithmeticException: Divide by zero, compiling:(/afs/kth.se/home/f/d/fdiffner/Desktop/X2/bernoulli.clj:9:4)
    at clojure.lang.Compiler.load(Compiler.java:7145)
    at clojure.lang.Compiler.loadFile(Compiler.java:7089)
    at clojure.main$load_script.invoke(main.clj:274)
    at clojure.main$script_opt.invoke(main.clj:336)
    at clojure.main$main.doInvoke(main.clj:420)
    at clojure.lang.RestFn.invoke(RestFn.java:408)
    at clojure.lang.Var.invoke(Var.java:379)
    at clojure.lang.AFn.applyToHelper(AFn.java:154)
    at clojure.lang.Var.applyTo(Var.java:700)
    at clojure.main.main(main.java:37)
Caused by: java.lang.ArithmeticException: Divide by zero
    at clojure.lang.Numbers.divide(Numbers.java:156)
    at user$bernoulli$iter__2__6$fn__7$fn__8.invoke(bernoulli.clj:8)
    at user$bernoulli$iter__2__6$fn__7.invoke(bernoulli.clj:8)
    at clojure.lang.LazySeq.sval(LazySeq.java:40)
    at clojure.lang.LazySeq.seq(LazySeq.java:49)
    at clojure.lang.RT.seq(RT.java:484)
    at clojure.core$seq.invoke(core.clj:133)
    at clojure.core$apply.invoke(core.clj:624)
    at user$bernoulli.invoke(bernoulli.clj:8)
    at user$bernoulli$iter__2__6$fn__7$fn__8.invoke(bernoulli.clj:8)
    at user$bernoulli$iter__2__6$fn__7.invoke(bernoulli.clj:8)
    at clojure.lang.LazySeq.sval(LazySeq.java:40)
    at clojure.lang.LazySeq.seq(LazySeq.java:49)
    at clojure.lang.RT.seq(RT.java:484)
    at clojure.core$seq.invoke(core.clj:133)
    at clojure.core$apply.invoke(core.clj:624)
    at user$bernoulli.invoke(bernoulli.clj:8)
    at user$eval17.invoke(bernoulli.clj:11)
    at clojure.lang.Compiler.eval(Compiler.java:6706)
    at clojure.lang.Compiler.load(Compiler.java:7133)
    ... 9 more

Answer 1

问题出在您的for表达式中：

(for [k (range n)] (/ (* (binom 1 n k) (bernoulli k)) (- n (+ k 1))))

尤其是部门：

(/ (* (binom 1 n k) (bernoulli k))
   (- n (+ k 1)))

最后一部分，当n为1且k为0时（当n为1时将发生这种情况），则(- n (+ k 1))的值为(- 1 (+ 0 1)) ，该值为0。结果，结果是除以0。

在Clojure中除以零

1 个答案: