[LISP函数]：给整数，求最中间的两个数

eachy

2. 
   
3. 
   
4. ;|
   
5.    给整数，求最中间的两个数
   
6. |;
   
7. (defun $XDLSP_GetMidNum        (num)
   
8.   (if (= 0 (rem num 2))
   
9.     (progn
   
10.       (setq num3 (/ num 2)
    
11.             num1 (- num3 1)
    
12.             num2 num3
    
13.       )
    
14.     )
    
15.     (progn
    
16.       (setq num3 (/ num 2)
    
17.             num1 (- num3 1)
    
18.             num2 (+ num3 1)
    
19.       )
    
20.     )
    
21.   )
    
22.   (list num1 num2)
    
23. )

<br /> <br /> ;|<br />    给整数，求最中间的两个数<br /> |;<br /> (defun $XDLSP_GetMidNum        (num)<br />   (if (= 0 (rem num 2))<br />     (progn<br />       (setq num3 (/ num 2)<br />             num1 (- num3 1)<br />             num2 num3<br />       )<br />     )<br />     (progn<br />       (setq num3 (/ num 2)<br />             num1 (- num3 1)<br />             num2 (+ num3 1)<br />       )<br />     )<br />   )<br />   (list num1 num2)<br /> )

狂刀

(list ($XDLSP_GetMidNum 13)($XDLSP_GetMidNum 14)($XDLSP_GetMidNum 3)($XDLSP_GetMidNum 4) ($XDLSP_GetMidNum 0)($XDLSP_GetMidNum -13)($XDLSP_GetMidNum -14))

->((5 7) (6 7) (0 2) (1 2) (-1 0) (-7 -5) (-8 -7))
有点问题.

或应注明ｎｕｍ为奇数

2. 
   
3. ;; 取得整数最中间的一个或两个数.
   
4. (defun x-midnum        (num / a)
   
5.   (setq a (/ num 2)
   
6.         b (rem num 2))
   
7.   (if (= 0 b)
   
8.       (list a)
   
9.       (list a (+ b a))
   
10.   )
    
11. )
    

<br /> ;; 取得整数最中间的一个或两个数.<br /> (defun x-midnum        (num / a)<br />   (setq a (/ num 2)<br />         b (rem num 2))<br />   (if (= 0 b)<br />       (list a)<br />       (list a (+ b a))<br />   )<br /> )<br />

(list (x-midnum 13)(x-midnum 14)(x-midnum 3)(x-midnum 4) (x-midnum 0)(x-midnum -13)(x-midnum -14))
->((6 7) (7) (1 2) (2) (0) (-6 -7) (-7))