（XD::List:BooleanValueInvert ）0和1组成的开关二态表的值翻转

Lispboy

1. ;|
   
2. 0和1组成的开关二态表的值翻转
   
3. 参数：表 (0 1 1 1 0 0 0 1 1)
   
4. 返回值：表
   
5. 例子： (XD::List:BooleanValueInvert '(0 1 1 1 0 0 0 1 1))
   
6.        (1 0 0 0 1 1 1 0 0 0)
   
7. |;
   
8. (defun XD::List:BooleanValueInvert (lst)
   
9.   (mapcar
   
10.     '(lambda (x)
    
11.        (if (= x 1)
    
12.          0
    
13.          1
    
14.        )
    
15.      )
    
16.     lst
    
17.   )
    
18. )
    
19. 
    

;|<br /> 0和1组成的开关二态表的值翻转<br /> 参数：表 (0 1 1 1 0 0 0 1 1)<br /> 返回值：表<br /> 例子： (XD::List:BooleanValueInvert '(0 1 1 1 0 0 0 1 1))<br />        (1 0 0 0 1 1 1 0 0 0)<br /> |;<br /> (defun XD::List:BooleanValueInvert (lst)<br />   (mapcar<br />     '(lambda (x)<br />        (if (= x 1)<br />          0<br />          1<br />        )<br />      )<br />     lst<br />   )<br /> )<br /> <br />