RosettaCodeData/Task/Combinations/TXR/combinations.txr
2015-11-18 06:14:39 +00:00

4 lines
88 B
Text

(defun comb-n-m (n m)
(comb (range* 0 n) m))
(put-line `3 comb 5 = @(comb-n-m 5 3)`)