6 (loop :for prod
= 1 :then
(* prod i
)
8 :finally
(return prod
)))
15 (declare (integer n r
))
16 (loop :for k
:from
(- n r
) :to n
17 :for prod
= 1 :then
(* prod k
)
18 :finally
(return prod
)))
25 (declare (fixnum n r
))
26 (/ (nPr n r
) (factorial r
)))
33 (declare (fixnum n r
))