请问这段代码有什么问题，最终结果输入是nil

天之如一

2. (defun stair-level-steps (step-num / stair-level remainder stair-level-steps new-remainder j stair-level-list stair-level-steps new-stair-level-list temp)
   
3.   (setq stair-level     (fix (/ step-num 18))      ;; 计算 step-num 除以 18 的商，存储在 b
   
4.   remainder     (rem step-num 18 )      ;; 计算 n 减去 n 除以 18 的商乘以 18 的结果，存储在 remainder
   
5.    stair-level-steps   nil                    ;; 创建一个空列表 result-list  
   
6.   )                             
   
7.   (if (zerop remainder)
   
8.       (repeat (fix stair-level)
   
9.          (setq result-list (append  result-list (list 18)))
   
10.         )
    
11.        (progn
    
12.    (setq stair-level-steps   (fix (/ step-num (+ stair-level 1)))
    
13.     new-remainder    (fix (- step-num (* (+ stair-level 1) stair-level-steps)))
    
14.           j       0
    
15.            stair-level-list   nil
    
16.            new-stair-level-list  nil
    
17.           temp      nil
    
18.          
    
19.    )
    
20.    (repeat (fix (+ 1 stair-level))
    
21.           (setq stair-level-list (append  stair-level-list (list stair-level-steps)))
    
22.         )
    
23.   (while (> new-remainder 0)
    
24.      (repeat new-remainder
    
25.       (setq temp                (nth j stair-level-list)
    
26.                              temp                (+ 1 temp)
    
27.                   new-stair-level-list   (append new-stair-level-list (list temp))
    
28.             j        (1+ j)
    
29.           )
    
30.        )
    
31.     (reverse new-stair-level-list)  
    
32.     )
    
33.      
    
34.   )   
    
35.    )
    
36. )
    
37. 
    
38. 
    
39. (defun c:tt()
    
40.   (stair-level-steps (getreal "\n 请输入级数"))
    
41. )

(defun stair-level-steps (step-num / stair-level remainder stair-level-steps new-remainder j stair-level-list stair-level-steps new-stair-level-list temp)<br />   (setq stair-level     (fix (/ step-num 18))      ;; 计算 step-num 除以 18 的商，存储在 b<br />   remainder     (rem step-num 18 )      ;; 计算 n 减去 n 除以 18 的商乘以 18 的结果，存储在 remainder<br />    stair-level-steps   nil                    ;; 创建一个空列表 result-list  <br />   )                             <br />   (if (zerop remainder)<br />       (repeat (fix stair-level)<br />          (setq result-list (append  result-list (list 18)))<br />         )<br />        (progn<br />    (setq stair-level-steps   (fix (/ step-num (+ stair-level 1)))<br />     new-remainder    (fix (- step-num (* (+ stair-level 1) stair-level-steps)))<br />           j       0<br />            stair-level-list   nil<br />            new-stair-level-list  nil<br />           temp      nil<br />          <br />    )<br />    (repeat (fix (+ 1 stair-level))<br />           (setq stair-level-list (append  stair-level-list (list stair-level-steps)))<br />         )<br />   (while (> new-remainder 0)<br />      (repeat new-remainder <br />       (setq temp                (nth j stair-level-list)<br />                              temp                (+ 1 temp)<br />                   new-stair-level-list   (append new-stair-level-list (list temp))<br />             j        (1+ j)<br />           )<br />        )<br />     (reverse new-stair-level-list)  <br />     )<br />      <br />   )    <br />    )<br /> )<br /> <br /> <br /> (defun c:tt()<br />   (stair-level-steps (getreal "\n 请输入级数"))<br /> )

各路大神，请问这段代码有什么问题，为啥输入的结果是nil

天之如一

2. (defun stair-steps (step-num / stair-level remainder stair-level-steps new-remainder j stair-level-list stair-level-steps temp new-stair-level-list)
   
3.   (setq stair-level                 (fix (/ step-num 18))            ;; 计算 step-num 除以 18 的商，存储在 b
   
4.         remainder                 (rem step-num 18 )                  ;; 计算 n 减去 n 除以 18 的商乘以 18 的结果，存储在 remainder
   
5.         stair-level-steps         nil                                ;; 创建一个空列表 result-list
   
6.         new-stair-level-list    nil
   
7.   )                             
   
8.   (if (zerop remainder)
   
9.             (repeat (fix stair-level)
   
10.                      (setq stair-level-steps (append  stair-level-steps (list 18)))
    
11.               )
    
12.        (progn
    
13.          (setq stair-level-steps         (fix (/ step-num (+ stair-level 1)))
    
14.                 new-remainder                (fix (- step-num (* (+ stair-level 1) stair-level-steps)))
    
15.                 j                         0
    
16.                        stair-level-list         nil
    
17.                 temp                        nil
    
18.                 temp2                        nil
    
19.          )
    
20.          (if  (zerop new-remainder)
    
21.                    (repeat (fix (+ 1 stair-level))
    
22.                       (setq stair-level-list (append  stair-level-list (list stair-level-steps)))
    
23.                       )
    
24.                   (progn
    
25.                             (repeat (fix (+ 1 stair-level))
    
26.                               (setq stair-level-list (append  stair-level-list (list stair-level-steps)))
    
27.                               )
    
28.                             (repeat new-remainder
    
29.                                 (setq         temp                            (nth j stair-level-list)
    
30.                                                          temp                            (+ 1 temp)
    
31.                                                     stair-level-list                 (append stair-level-list (list temp))
    
32.                                               j                                (1+ j)
    
33.                                 )
    
34.                              )
    
35.                              (setq        stair-level-list-length         (length stair-level-list)
    
36.                                 i                                   (- stair-level-list-length (+ 1 stair-level))
    
37.                              )
    
38.                              (repeat         (+ stair-level 1)
    
39.                                     (setq       
    
40.                                               temp2                        (nth i stair-level-list)
    
41.                                               new-stair-level-list        (append new-stair-level-list (list temp2))
    
42.                                               i                                (1+ i)
    
43.                                      )
    
44.                              )
    
45.                           (reverse new-stair-level-list)               
    
46.                 )
    
47.         )
    
48.    )
    
49.   )
    
50. )

(defun stair-steps (step-num / stair-level remainder stair-level-steps new-remainder j stair-level-list stair-level-steps temp new-stair-level-list)<br />   (setq stair-level                 (fix (/ step-num 18))            ;; 计算 step-num 除以 18 的商，存储在 b<br />         remainder                 (rem step-num 18 )                  ;; 计算 n 减去 n 除以 18 的商乘以 18 的结果，存储在 remainder<br />         stair-level-steps         nil                                ;; 创建一个空列表 result-list<br />         new-stair-level-list    nil<br />   )                             <br />   (if (zerop remainder)<br />             (repeat (fix stair-level)<br />                      (setq stair-level-steps (append  stair-level-steps (list 18)))<br />               )<br />        (progn<br />          (setq stair-level-steps         (fix (/ step-num (+ stair-level 1)))<br />                 new-remainder                (fix (- step-num (* (+ stair-level 1) stair-level-steps)))<br />                 j                         0<br />                        stair-level-list         nil<br />                 temp                        nil<br />                 temp2                        nil<br />          )<br />          (if  (zerop new-remainder)<br />                    (repeat (fix (+ 1 stair-level))<br />                       (setq stair-level-list (append  stair-level-list (list stair-level-steps)))<br />                       )<br />                   (progn<br />                             (repeat (fix (+ 1 stair-level))<br />                               (setq stair-level-list (append  stair-level-list (list stair-level-steps)))<br />                               )<br />                             (repeat new-remainder<br />                                 (setq         temp                            (nth j stair-level-list)<br />                                                          temp                            (+ 1 temp)<br />                                                     stair-level-list                 (append stair-level-list (list temp))<br />                                               j                                (1+ j)<br />                                 )<br />                              )<br />                              (setq        stair-level-list-length         (length stair-level-list)<br />                                 i                                   (- stair-level-list-length (+ 1 stair-level))<br />                              )<br />                              (repeat         (+ stair-level 1)<br />                                     (setq        <br />                                               temp2                        (nth i stair-level-list)<br />                                               new-stair-level-list        (append new-stair-level-list (list temp2))<br />                                               i                                (1+ i)<br />                                      )<br />                              )<br />                           (reverse new-stair-level-list)                <br />                 )<br />         )<br />    )<br />   )<br /> )

用了最笨的办法解决了有没有帮忙优化的，或者提供个思路

xyp1964

1. (defun c:tt ()
   
2.   (defun stair (int / a aa bb lst n nn)
   
3.     (setq int (if (/= int (fix int))
   
4.                 (1+ (fix int))
   
5.                 (fix int)
   
6.               )
   
7.           aa  (fix (/ int 18)) ; 最多18步
   
8.           bb  (rem int 18) ; 余数
   
9.     )
   
10.     (if (= bb 0)
    
11.       (repeat aa (setq lst (cons 18 lst)))
    
12.       (progn
    
13.         (setq nn (1+ aa)
    
14.               n  (/ int nn 1.)
    
15.               n  (if (/= n (fix n))
    
16.                    (1+ (fix n))
    
17.                    (fix n)
    
18.                  )
    
19.         )
    
20.         (while (> int n)
    
21.           (setq lst (cons n lst)
    
22.                 int (- int n)
    
23.                 nn  (1- nn)
    
24.                 a   (/ int nn 1.)
    
25.           )
    
26.           (if (= a (fix a))
    
27.             (repeat nn
    
28.               (setq lst (cons (fix a) lst)
    
29.                     int (- int (fix a))
    
30.               )
    
31.             )
    
32.           )
    
33.         )
    
34.         (reverse lst)
    
35.       )
    
36.     )
    
37.   )
    
38.   (stair (getint "\n请输入级数: "))
    
39. )
    

(defun c:tt ()<br />   (defun stair (int / a aa bb lst n nn)<br />     (setq int (if (/= int (fix int))<br />                 (1+ (fix int))<br />                 (fix int)<br />               )<br />           aa  (fix (/ int 18)) ; 最多18步<br />           bb  (rem int 18) ; 余数<br />     )<br />     (if (= bb 0)<br />       (repeat aa (setq lst (cons 18 lst)))<br />       (progn<br />         (setq nn (1+ aa)<br />               n  (/ int nn 1.)<br />               n  (if (/= n (fix n))<br />                    (1+ (fix n))<br />                    (fix n)<br />                  )<br />         )<br />         (while (> int n)<br />           (setq lst (cons n lst)<br />                 int (- int n)<br />                 nn  (1- nn)<br />                 a   (/ int nn 1.)<br />           )<br />           (if (= a (fix a))<br />             (repeat nn<br />               (setq lst (cons (fix a) lst)<br />                     int (- int (fix a))<br />               )<br />             )<br />           )<br />         )<br />         (reverse lst)<br />       )<br />     )<br />   )<br />   (stair (getint "\n请输入级数: "))<br /> )<br />

天之如一

xyp1964 发表于 2024-9-8 16:25

哇！谢谢版主

lijiao

给你简化了一下

2. (defun stair-steps (step-num / AVE LST M REMAINDER STAIR-LEVEL X)
   
3.   (setq step-num (fix step-num)
   
4.   stair-level (if (> (rem step-num 18) 0)
   
5.           (1+ (/ step-num  18))
   
6.           (/ step-num  18)
   
7.           )
   
8.   )
   
9.   (setq ave (fix (/ step-num stair-level))
   
10.   m (- step-num (* ave stair-level)))
    
11.   (mapcar '(lambda(x)
    
12.        (repeat (car x)
    
13.          (setq lst (cons (cadr x) lst))
    
14.          )
    
15.        )
    
16.     (list (list (- stair-level m) ave) (list m (1+ ave)))
    
17.     )
    
18.   lst
    
19. )

(defun stair-steps (step-num / AVE LST M REMAINDER STAIR-LEVEL X)<br />   (setq step-num (fix step-num)<br />   stair-level (if (> (rem step-num 18) 0)<br />           (1+ (/ step-num  18))<br />           (/ step-num  18)<br />           )<br />   )<br />   (setq ave (fix (/ step-num stair-level))<br />   m (- step-num (* ave stair-level)))<br />   (mapcar '(lambda(x)<br />        (repeat (car x)<br />          (setq lst (cons (cadr x) lst))<br />          )<br />        )<br />     (list (list (- stair-level m) ave) (list m (1+ ave)))<br />     )<br />   lst<br /> )

天之如一

lijiao 发表于 2024-9-9 14:43
给你简化了一下

非常感谢，昨天也重新写了一个

2. (defun  tt (stair-steps / len bottom top remainder results)
   
3.         (setq stair-levels (ceiling (/ stair-steps 18)))
   
4.           (setq min-stair-levels (fix (/ stair-steps stair-levels)))
   
5.         (setq max-stair-leves (+ min-stair-levels 1))
   
6.           (setq remainder (rem stair-steps min-stair-levels))
   
7.         (setq stair-steps-list nil)
   
8.           (repeat stair-levels
   
9.                     (if (>= (+ remainder (length stair-steps-list)) stair-levels)
   
10.                               (setq stair-steps-list (append stair-steps-list (list max-stair-leves)))
    
11.                               (setq stair-steps-list (append stair-steps-list (list min-stair-levels)))
    
12.                     )
    
13.           )
    
14.   (reverse stair-steps-list)
    
15.   )
    
16. (defun ceiling (x)
    
17.   (if (= x (fix x))
    
18.     (fix x)
    
19.     (+ 1 (fix x))
    
20.   )
    
21. )

(defun  tt (stair-steps / len bottom top remainder results)<br />         (setq stair-levels (ceiling (/ stair-steps 18)))<br />           (setq min-stair-levels (fix (/ stair-steps stair-levels)))<br />         (setq max-stair-leves (+ min-stair-levels 1))<br />           (setq remainder (rem stair-steps min-stair-levels))<br />         (setq stair-steps-list nil)<br />           (repeat stair-levels<br />                     (if (>= (+ remainder (length stair-steps-list)) stair-levels)<br />                               (setq stair-steps-list (append stair-steps-list (list max-stair-leves)))<br />                               (setq stair-steps-list (append stair-steps-list (list min-stair-levels)))<br />                     )<br />           )<br />   (reverse stair-steps-list)<br />   )<br /> (defun ceiling (x)<br />   (if (= x (fix x))<br />     (fix x)<br />     (+ 1 (fix x))<br />   )<br /> )

xyp1964

天之如一 发表于 2024-9-9 15:24
非常感谢，昨天也重新写了一个

(tt 55) → (19 18 18)
明显错误

xyp1964

1. (defun stair-steps (int / av lst m nn x)
   
2.   ;; (stair-steps 59) → (15 15 15 14)
   
3.   ;; (stair-steps 60) → (15 15 15 15)
   
4.   (setq int (fix int)
   
5.         nn  (/ int 18)
   
6.         nn  (if (> (rem int 18) 0)(1+ nn)nn)
   
7.         av  (fix (/ int nn))
   
8.         m   (- int (* av nn))
   
9.   )
   
10.   (repeat (- nn m) (setq lst (cons av lst)))
    
11.   (repeat m (setq lst (cons (1+ av) lst)))
    
12.   lst
    
13. )

(defun stair-steps (int / av lst m nn x)<br />   ;; (stair-steps 59) → (15 15 15 14)<br />   ;; (stair-steps 60) → (15 15 15 15)<br />   (setq int (fix int)<br />         nn  (/ int 18)<br />         nn  (if (> (rem int 18) 0)(1+ nn)nn)<br />         av  (fix (/ int nn))<br />         m   (- int (* av nn))<br />   )<br />   (repeat (- nn m) (setq lst (cons av lst)))<br />   (repeat m (setq lst (cons (1+ av) lst)))<br />   lst<br /> )

lijiao

这个帖子很有意思,它的实质是一个鸡兔同笼问题