报数分组，这个很简单，幼儿园就开始报数了不是？

llsheng_73

2. (defun tt(lst n / i a b l);;;大家都报1、2、3、...、n，1、2、3、...、n......，最后所有报数相同的组成一组，共n组
   
3.   (setq i 0 l(list(list 0(car lst)))lst(cdr lst))
   
4.   (while lst
   
5.     (setq i(rem(1+ i)n)
   
6.           a(car lst)lst(cdr lst)
   
7.           b(assoc i l)
   
8.           l(if b(subst(vl-list* i a(cdr b))b l)
   
9.              (cons(list i a)l))))
   
10.   (mapcar(function(lambda(x)(reverse(cdr x))))(reverse l))
    
11.   )

(defun tt(lst n / i a b l);;;大家都报1、2、3、...、n，1、2、3、...、n......，最后所有报数相同的组成一组，共n组<br />   (setq i 0 l(list(list 0(car lst)))lst(cdr lst))<br />   (while lst<br />     (setq i(rem(1+ i)n)<br />           a(car lst)lst(cdr lst)<br />           b(assoc i l)<br />           l(if b(subst(vl-list* i a(cdr b))b l)<br />              (cons(list i a)l))))<br />   (mapcar(function(lambda(x)(reverse(cdr x))))(reverse l))<br />   )

自贡黄明儒

据说nth较慢，当lst很大小，73这个就慢了。
又听说，cadddr这个函数最多以4到，lst 用repeat 4 处理，就快了。

1. (defun XD-List-Nth++ (L s n)
   
2.   (repeat (/ s 4) (setq L (cddddr L)))
   
3.   (repeat (rem s 4) (setq L (cdr L)))
   
4.   (setq s nil)
   
5.   (if (and L n)
   
6.     (cond ((>= n (length L)) L)
   
7.     ((< n (- (length L) n))
   
8.      (repeat (/ n 4)
   
9.        (setq s (cons (cadddr L)
   
10.          (cons (caddr L) (cons (cadr L) (cons (car L) s)))
    
11.          )
    
12.        L (cddddr L)
    
13.        )
    
14.      )
    
15.      (repeat (rem n 4)
    
16.        (setq s (cons (car L) s)
    
17.        L (cdr L)
    
18.        )
    
19.      )
    
20.      (reverse s)
    
21.     )
    
22.     (t
    
23.      (setq L (reverse L)
    
24.      s (- (length L) n)
    
25.      )
    
26.      (repeat (/ s 4) (setq L (cddddr L)))
    
27.      (repeat (rem s 4) (setq L (cdr L)))
    
28.      (reverse L)
    
29.     )
    
30.     )
    
31.     L
    
32.   )
    
33. )

(defun XD-List-Nth++ (L s n)<br />   (repeat (/ s 4) (setq L (cddddr L)))<br />   (repeat (rem s 4) (setq L (cdr L)))<br />   (setq s nil)<br />   (if (and L n)<br />     (cond ((>= n (length L)) L)<br />     ((< n (- (length L) n))<br />      (repeat (/ n 4)<br />        (setq s (cons (cadddr L)<br />          (cons (caddr L) (cons (cadr L) (cons (car L) s)))<br />          )<br />        L (cddddr L)<br />        )<br />      )<br />      (repeat (rem n 4)<br />        (setq s (cons (car L) s)<br />        L (cdr L)<br />        )<br />      )<br />      (reverse s)<br />     )<br />     (t<br />      (setq L (reverse L)<br />      s (- (length L) n)<br />      )<br />      (repeat (/ s 4) (setq L (cddddr L)))<br />      (repeat (rem s 4) (setq L (cdr L)))<br />      (reverse L)<br />     )<br />     )<br />     L<br />   )<br /> )

菜卷鱼

1. 按顺序分组
   
2. 
   
3. (defun tt1 (lst n / a xl nl)
   
4.   (while lst
   
5.     (setq a (car lst))
   
6.     (setq lst (cdr lst))
   
7.     (if  (= (length nl) n)
   
8.       (setq xl (cons (reverse nl) xl)
   
9.       nl nil
   
10.       )
    
11.     )
    
12.     (setq nl (cons a nl))
    
13.   )
    
14.   (if nl
    
15.     (setq xl (cons (reverse nl) xl))
    
16.   )
    
17.   (reverse xl)
    
18. )
    
19. 题目要求分组
    
20. (defun tt2 (lst n / xl a x)
    
21. ;;;组变量
    
22.   (setq i 0)
    
23.   (repeat n
    
24.     (setq xl (cons (read (strcat "x" (itoa i))) xl))
    
25.     (setq i (1+ i))
    
26.   )
    
27. ;;;变量初始化
    
28.   (foreach x xl
    
29.     (set x nil)
    
30.   )
    
31. ;;;变量赋值
    
32.   (while lst
    
33.     (foreach x xl
    
34.       (setq a (car lst))
    
35.       (setq lst (cdr lst))
    
36.       (if a
    
37.   (set x (cons a (eval x)))
    
38.       )
    
39.     )
    
40.     lst
    
41.   )
    
42.   (mapcar 'reverse (mapcar 'eval xl))
    
43. )

按顺序分组<br /> <br /> (defun tt1 (lst n / a xl nl)<br />   (while lst<br />     (setq a (car lst))<br />     (setq lst (cdr lst))<br />     (if  (= (length nl) n)<br />       (setq xl (cons (reverse nl) xl)<br />       nl nil<br />       )<br />     )<br />     (setq nl (cons a nl))<br />   )<br />   (if nl<br />     (setq xl (cons (reverse nl) xl))<br />   )<br />   (reverse xl)<br /> )<br /> 题目要求分组<br /> (defun tt2 (lst n / xl a x)<br /> ;;;组变量<br />   (setq i 0)<br />   (repeat n<br />     (setq xl (cons (read (strcat "x" (itoa i))) xl))<br />     (setq i (1+ i))<br />   )<br /> ;;;变量初始化<br />   (foreach x xl<br />     (set x nil)<br />   )<br /> ;;;变量赋值<br />   (while lst<br />     (foreach x xl<br />       (setq a (car lst))<br />       (setq lst (cdr lst))<br />       (if a<br />   (set x (cons a (eval x)))<br />       )<br />     )<br />     lst<br />   )<br />   (mapcar 'reverse (mapcar 'eval xl))<br /> )

llsheng_73

自贡黄明儒 发表于 2024-12-30 11:54
据说nth较慢，当lst很大小，73这个就慢了。
又听说，cadddr这个函数最多以4到，lst 用repeat 4 处理，就快 ...

NTH确实是个问题，然后增加了索引项用ASSOC去取值来避免这个尴尬

煮茗

感谢大佬的代码。我好好学习一下~

自贡黄明儒

菜卷鱼 发表于 2024-12-30 14:32
看错了题目，等下再来

点兵点将，凡是点到2的站出来

chslwj521

表中数量非N倍 ，可行？

菜卷鱼

自贡黄明儒 发表于 2024-12-30 15:07
点兵点将，凡是点到2的站出来

搞定了，，，一开始既然错了，代码也写了，一并贴出来啦

llsheng_73

chslwj521 发表于 2024-12-30 15:26
表中数量非N倍 ，可行？

(tt '(1 2 3 4 5 6 7 8 9 10)3)=>((1 4 7 10) (2 5 8) (3 6 9))
(tt '(1 2 3 4 5 6 7 8 9 10)4)=>((1 5 9) (2 6 10) (3 7) (4 8))

chslwj521

llsheng_73 发表于 2024-12-30 15:51
(tt '(1 2 3 4 5 6 7 8 9 10)3)=>((1 4 7 10) (2 5 8) (3 6 9))
(tt '(1 2 3 4 5 6 7 8 9 10)4)=>((1 5  ...

不错，不错