3 lines
131 B
Clojure
3 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))))
|