求一个按长度拆分表成子表的函数

xyp1964

1. ;|
   
2. (abc '(1 2 3 4 5 6 7 8 9 10 11) 3)→((1 2 3) (4 5 6) (7 8 9) (10 11 ""))
   
3. 
   
4. (abc '((1 2) (2 3) (3 4) (4 5) (5 6) (6 7) (7 8) (8 9) (9 10) (10 11 12) (11 12 13)) 3)
   
5. →
   
6. (((1 2) (2 3) (3 4)) ((4 5) (5 6) (6 7)) ((7 8) (8 9) (9 10)) ((10 11 12) (11 12 13) ""))
   
7. |;
   
8. (defun abc (lst n / bb tmp a)
   
9.   (setq bb '() tmp '())
   
10.   (while (setq a (car lst))
    
11.     (setq lst (cdr lst))
    
12.     (if (< (length tmp) n)
    
13.       (setq tmp (cons a tmp))
    
14.       (setq bb (cons (reverse tmp) bb)
    
15.             tmp (list a)
    
16.       )
    
17.     )
    
18.   )
    
19.   (if tmp
    
20.     (progn
    
21.       (while (< (length tmp) n) (setq tmp (cons "" tmp)))
    
22.       (setq bb (cons (reverse tmp) bb))
    
23.     )
    
24.   )
    
25.   (reverse bb)
    
26. )
    

;|<br /> (abc '(1 2 3 4 5 6 7 8 9 10 11) 3)→((1 2 3) (4 5 6) (7 8 9) (10 11 ""))<br /> <br /> (abc '((1 2) (2 3) (3 4) (4 5) (5 6) (6 7) (7 8) (8 9) (9 10) (10 11 12) (11 12 13)) 3)<br /> →<br /> (((1 2) (2 3) (3 4)) ((4 5) (5 6) (6 7)) ((7 8) (8 9) (9 10)) ((10 11 12) (11 12 13) "")) <br /> |;<br /> (defun abc (lst n / bb tmp a)<br />   (setq bb '() tmp '())<br />   (while (setq a (car lst))<br />     (setq lst (cdr lst))<br />     (if (< (length tmp) n)<br />       (setq tmp (cons a tmp))<br />       (setq bb (cons (reverse tmp) bb)<br />             tmp (list a)<br />       )<br />     )<br />   )<br />   (if tmp<br />     (progn<br />       (while (< (length tmp) n) (setq tmp (cons "" tmp)))<br />       (setq bb (cons (reverse tmp) bb))<br />     )<br />   )<br />   (reverse bb)<br /> )<br />

liuhe

wharan 发表于 2023-7-5 15:27
这个程序，结果返回有点问题。
(LHSTTOLST '(1 2 3 4 5 6 7 8 9 10 11) 5)返回((1 2 3 4 5) (6 7 8 9  ...

改了一下，再试试

wharan

liuhe 发表于 2023-7-5 13:49
看着都差不多,更新了一下

没看到你更新后的代码

vitalgg

用list:split 函数 拆分的子表，当个数不足时，最后一个子表的元素个数与前面的不等长。
可以使用 list:fill 补足

wharan

vitalgg 发表于 2023-7-6 21:39
用list:split 函数 拆分的子表，当个数不足时，最后一个子表的元素个数与前面的不等长。
可以使用 l ...

看来还是很灵活的

gaics

yoyoho 发表于 2023-7-5 21:12
(defun list:split (lst x / lst2)
(setq lst3 lst)
(repeat (- x (rem (length lst) x))

这思路真牛！我想象不到！