(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