Combinations and permutations: Difference between revisions
Added Common Lisp
(Restored visibility of two formulae to OSX Chrome and Safari. (by reverting math tags to pre Aug 27 contents)) |
(Added Common Lisp) |
||
Line 343:
return 0;
}</lang>
=={{header|Common Lisp}}==
<lang Lisp>(defun combinations (n k)
(let ((num 1)
(den 1) )
(dotimes (i k (/ num den))
(setq num (* num (- n i)) den (* den (- k i))) )))
(defun permutations (n k)
(let ((p 1))
(dotimes (i k p)
(setq p (* p (- n i))) )))
</lang>
=={{header|D}}==
| |||