8 lines
149 B
Text
8 lines
149 B
Text
|
(de binomial (N K)
|
||
|
|
(let f
|
||
|
|
'((N)
|
||
|
|
(if (=0 N) 1 (apply * (range 1 N))) )
|
||
|
|
(/
|
||
|
|
(f N)
|
||
|
|
(* (f (- N K)) (f K)) ) ) )
|