7 lines
127 B
Text
7 lines
127 B
Text
(defun fac (n)
|
|
(if (zp n)
|
|
1
|
|
(* n (fac (1- n)))))
|
|
|
|
(defun binom (n k)
|
|
(/ (fac n) (* (fac (- n k)) (fac k)))
|