93f159f1f920bc15971b83e3858e6cdaaa6f0ccc
2 (in-package :lineal.math
)
8 (loop :for prod
= 1 :then
(* prod i
)
10 :finally
(return prod
)))
17 (declare (integer n r
))
18 (loop :for k
:from
(- n r
) :to n
19 :for prod
= 1 :then
(* prod k
)
20 :finally
(return prod
)))
27 (declare (fixnum n r
))
28 (/ (nPr n r
) (factorial r
)))
35 (declare (fixnum n r
))