12 lines
254 B
Text
12 lines
254 B
Text
(de comb (M Lst)
|
|
(cond
|
|
((=0 M) '(NIL))
|
|
((not Lst))
|
|
(T
|
|
(conc
|
|
(mapcar
|
|
'((Y) (cons (car Lst) Y))
|
|
(comb (dec M) (cdr Lst)) )
|
|
(comb M (cdr Lst)) ) ) ) )
|
|
|
|
(comb 3 (1 2 3 4 5))
|