RosettaCodeData/Task/Combinations/TXR/combinations.txr
2023-07-01 13:44:08 -04: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)`)