Name: Anonymous 2013-11-10 13:26
Yes. Please post more programming-relevant threads.
(define (combinations k lis)
(cond ((= k 0) '(()))
((null? lis) '())
(else (append (map (lambda (rest-comb)
(cons (car lis) rest-comb))
(combinations (- k 1) (cdr lis)))
(combinations k (cdr lis))))))