RosettaCodeData/Task/Combinations/TXR/combinations.txr

(defun comb-n-m (n m)
  (comb (range* 0 n) m))

(put-line `3 comb 5 = @(comb-n-m 5 3)`)
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`(defun comb-n-m (n m)`
			`(comb (range* 0 n) m))`
March 2014 update 2014-04-02 16:56:35 +00:00
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			(put-line `3 comb 5 = @(comb-n-m 5 3)`)