RosettaCodeData/Task/Combinations/TXR/combinations.txr

5 lines
88 B
Plaintext

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