4 lines
131 B
Clojure
4 lines
131 B
Clojure
|
(defn binomial-coefficient [n k]
|
||
|
|
(let [rprod (fn [a b] (reduce * (range a (inc b))))]
|
||
|
|
(/ (rprod (- n k -1) n) (rprod 1 k))))
|