表元素的组合

kkq0305

2. (defun combin (lis n);lis表，n为选出个数。
   
3.     (cond ((= n 0) nil)
   
4.         ((= n 1) (mapcar 'list lis))
   
5.         ((= n (length lis)) (list lis))
   
6. ((> n (length lis)) (alert "combin系数大于表元素数"))
   
7.         (t (append (combin (cdr lis) n)
   
8.                 (mapcar '(lambda (x) (cons (car lis) x))
   
9.                     (combin (cdr lis) (1- n)))))))

(defun combin (lis n);lis表，n为选出个数。<br />     (cond ((= n 0) nil)<br />         ((= n 1) (mapcar 'list lis))<br />         ((= n (length lis)) (list lis))<br /> ((> n (length lis)) (alert "combin系数大于表元素数"))<br />         (t (append (combin (cdr lis) n)<br />                 (mapcar '(lambda (x) (cons (car lis) x))<br />                     (combin (cdr lis) (1- n)))))))

使用递归算法把组合简化
示例：(combin '(1 2 3 4 5 6) 2) ((5 6) (4 5) (4 6) (3 4) (3 5) (3 6) (2 3) (2 4) (2 5) (2 6) (1 2) (1 3) (1 4) (1 5) (1 6))