列出表中元素所有可能组合,包括空集,按先后顺序

炫翔

2. ;;;列出表中元素所有可能组合,包括空集,按先后顺序
   
3. ;;;(powerset (list 1 2 3)) 返回 ((1 2 3) (1 2) (1 3) (1) (2 3) (2) (3) nil)
   
4. (defun powerset (lst)
   
5.   (if (null lst)
   
6.     (list nil)
   
7.     (append ;_这里的append可以采用自定义myappend函数
   
8.       (mapcar '(lambda (x) ;_这里的mapcar可以采用qj-chen老师写的自定义mymapcar函数,lamda可以采用defun定义局部函数
   
9.    (cons (car lst) x)
   
10.         )
    
11.        (powerset (cdr lst))
    
12.       )
    
13.       (powerset (cdr lst))
    
14.     )
    
15.   )
    
16. )

;;;列出表中元素所有可能组合,包括空集,按先后顺序<br /> ;;;(powerset (list 1 2 3)) 返回 ((1 2 3) (1 2) (1 3) (1) (2 3) (2) (3) nil)<br /> (defun powerset (lst)<br />   (if (null lst)<br />     (list nil)<br />     (append ;_这里的append可以采用自定义myappend函数<br />       (mapcar '(lambda (x) ;_这里的mapcar可以采用qj-chen老师写的自定义mymapcar函数,lamda可以采用defun定义局部函数<br />    (cons (car lst) x)<br />         )<br />        (powerset (cdr lst))<br />       )<br />       (powerset (cdr lst))<br />     )<br />   )<br /> )

yjch

内容博大，受益非天谢谢

kkt123

太有点高了吧哥们;P;P