[LISP函数]：给奇数，求最中间一个数

eachy

2. 
   
3. 
   
4. ;|
   
5.    给奇数，求最中间一个数
   
6. |;
   
7. (defun $XDLSP_GetMidNum1 (num)
   
8.   (if (= 1 (rem num 2))
   
9.     (progn
   
10.       (if (= 1 num)
    
11.         '(0)
    
12.         (list (/ num 2))
    
13.       )
    
14.     )
    
15.   )
    
16. )

<br /> <br /> ;|<br />    给奇数，求最中间一个数<br /> |;<br /> (defun $XDLSP_GetMidNum1 (num)<br />   (if (= 1 (rem num 2))<br />     (progn<br />       (if (= 1 num)<br />         '(0)<br />         (list (/ num 2))<br />       )<br />     )<br />   )<br /> )

aeo

2. 
   
3. ;;;( / 1 2) --> 0 !  (rem -13 2)-->-1
   
4. (defun $XDLSP_GetMidNum1 (num)
   
5.   (if (= 1 (abs(rem num 2)))(list (/ num 2)))
   
6. )
   

<br /> ;;;( / 1 2) --> 0 !  (rem -13 2)-->-1<br /> (defun $XDLSP_GetMidNum1 (num)<br />   (if (= 1 (abs(rem num 2)))(list (/ num 2)))<br /> )<br />

狂刀

和(list (/ num 2))有什么区别？