1
2
3
4
5
6
(defun permutation-count (n c)
(let ((ans 1))
(loop for i from (- n (1- c)) upto n do (setf ans (* ans i))) ans))


(format t "~D~%" (permutation-count 6 5))