数组分类

leeli

请大侠帮忙 ：将选择的数字进行分三组并自动编号A，B,C使A,B,C各组内的数字个数以及他们的和尽量平均  

leeli

比如1，2，3，4，5，6，7
分为 1，2，7和 3，6 和4，5
每组的和为 10， 9，9 最接近
每组的个数为 3，2，2 最接近

zml84

貌似下料优化。

leeli

数学学的不好 不会

Gu_xl

回复 leeli 的帖子

看看这个程序行不行，大家讨论下！

2. 
   
3. (defun gxl-lst-split (ls len / tmp rl i)
   
4.   (setq i 0)
   
5.   (foreach item ls
   
6.     (setq tmp(append tmp(list item)))
   
7.     (setq i(1+ i))
   
8.     (if(zerop(rem i len))
   
9.       (setq rl(cons tmp rl) tmp nil)
   
10.     )
    
11.   )
    
12.   (if tmp (setq rl(cons tmp rl) tmp nil))
    
13.   (reverse rl)
    
14. )
    
15. (defun gxl-sort (lst func)
    
16.   (setq lst-i (VL-SORT-I lst func))
    
17.   (mapcar '(lambda (x) (nth x lst)) lst-i)
    
18.   
    
19.   )
    
20. ;;; (averagelst '(1 2 3 2 5 4 5 6 7 7))
    
21. (defun averagelst (lst / lst1  lst2 lst3 lst4 rtn i )
    
22.   ;;;表从小到大排序
    
23.   (setq lst1 (gxl-sort lst '(lambda (e1 e2) (< e1 e2))))
    
24.   
    
25.   ;;;表长度如不是3的倍数，拆分为两个表lst1 和lst2
    
26.   (if (= 1 (rem (length lst1) 3))
    
27.     (setq lst2 (list (car lst1))
    
28.           lst1 (cdr lst1)
    
29.           )
    
30.     (if (= 2 (rem (length lst1) 3))
    
31.       (setq lst2 (reverse (list (car lst1) (cadr lst1)))
    
32.             lst1 (cddr lst1)
    
33.             )
    
34.       )
    
35.     )
    
36.   ;;;表lst1 拆分长度为3 的表
    
37.   (setq lst1 (GXL-LST-SPLIT lst1 3))
    
38.   
    
39.   (setq i -1)
    
40.   ;;;各组数据按奇偶位置的不同进行大小反序
    
41.   (setq lst1 (mapcar '(lambda (x) (if (= (rem (setq i (1+ i)) 2) 1) (reverse x) x)) lst1))
    
42.   (if (= 0 (rem (length lst1) 2))
    
43.     ;;;lst1表个数为偶数，依次组表
    
44.     (setq rtn (apply 'mapcar (cons 'list lst1)))
    
45.     ;;;lst1表个数为奇数，取出第一个表，剩下的依次组表
    
46.     (progn
    
47.       (setq lst3 (car lst1)
    
48.             lst1 (cdr lst1)
    
49.             )
    
50.       ;;;取出第一个表，剩下的依次组表
    
51.       (setq rtn (apply 'mapcar (cons 'list lst1)))
    
52.       ;;;按各组数据的和从小到大排序
    
53.       (setq rtn (GXL-SORT rtn '(lambda (e1 e2) (< (apply '+ e1) (apply '+ e2)))))
    
54.       ;;;取出第的一个表从大到小排序
    
55.       (setq lst3 (GXL-SORT lst3 '(lambda (e1 e2) (> e1 e2))))
    
56.       ;;;将lst3加入组表
    
57.       (setq rtn (mapcar 'cons lst3 rtn))
    
58.       )
    
59.     )
    
60.   ;;;按各组数据的和从小到大排序
    
61.   (setq rtn (gxl-sort rtn '(lambda (e1 e2) (< (apply '+ e1) (apply '+ e2)))))
    
62.   ;;;对剩余lst2表组表
    
63.   (if lst2
    
64.     (if (= 1 (length lst2))
    
65.       (setq rtn (cons (cons (car lst2) (car rtn)) (cdr rtn)))
    
66.       (if (= 2 (length lst2))
    
67.         (setq lst4 (car rtn)
    
68.               lst5 (cadr rtn)
    
69.               rtn (cddr rtn)
    
70.               lst4 (cons (car lst2) lst4)
    
71.               lst5 (cons (cadr lst2) lst5)
    
72.               rtn (append (list lst4 lst5) rtn)
    
73.               )
    
74.         )
    
75.        
    
76.       
    
77.       )
    
78.     )
    
79.   rtn
    
80.   )
    
81. 
    

<br /> (defun gxl-lst-split (ls len / tmp rl i)<br />   (setq i 0)<br />   (foreach item ls<br />     (setq tmp(append tmp(list item)))<br />     (setq i(1+ i))<br />     (if(zerop(rem i len))<br />       (setq rl(cons tmp rl) tmp nil)<br />     )<br />   )<br />   (if tmp (setq rl(cons tmp rl) tmp nil))<br />   (reverse rl)<br /> )<br /> (defun gxl-sort (lst func)<br />   (setq lst-i (VL-SORT-I lst func))<br />   (mapcar '(lambda (x) (nth x lst)) lst-i)<br />   <br />   )<br /> ;;; (averagelst '(1 2 3 2 5 4 5 6 7 7))<br /> (defun averagelst (lst / lst1  lst2 lst3 lst4 rtn i )<br />   ;;;表从小到大排序<br />   (setq lst1 (gxl-sort lst '(lambda (e1 e2) (< e1 e2))))<br />   <br />   ;;;表长度如不是3的倍数，拆分为两个表lst1 和lst2<br />   (if (= 1 (rem (length lst1) 3))<br />     (setq lst2 (list (car lst1))<br />           lst1 (cdr lst1)<br />           )<br />     (if (= 2 (rem (length lst1) 3))<br />       (setq lst2 (reverse (list (car lst1) (cadr lst1)))<br />             lst1 (cddr lst1)<br />             )<br />       )<br />     )<br />   ;;;表lst1 拆分长度为3 的表<br />   (setq lst1 (GXL-LST-SPLIT lst1 3))<br />   <br />   (setq i -1)<br />   ;;;各组数据按奇偶位置的不同进行大小反序<br />   (setq lst1 (mapcar '(lambda (x) (if (= (rem (setq i (1+ i)) 2) 1) (reverse x) x)) lst1))<br />   (if (= 0 (rem (length lst1) 2))<br />     ;;;lst1表个数为偶数，依次组表<br />     (setq rtn (apply 'mapcar (cons 'list lst1)))<br />     ;;;lst1表个数为奇数，取出第一个表，剩下的依次组表<br />     (progn<br />       (setq lst3 (car lst1)<br />             lst1 (cdr lst1)<br />             )<br />       ;;;取出第一个表，剩下的依次组表<br />       (setq rtn (apply 'mapcar (cons 'list lst1)))<br />       ;;;按各组数据的和从小到大排序<br />       (setq rtn (GXL-SORT rtn '(lambda (e1 e2) (< (apply '+ e1) (apply '+ e2)))))<br />       ;;;取出第的一个表从大到小排序<br />       (setq lst3 (GXL-SORT lst3 '(lambda (e1 e2) (> e1 e2))))<br />       ;;;将lst3加入组表<br />       (setq rtn (mapcar 'cons lst3 rtn))<br />       )<br />     )<br />   ;;;按各组数据的和从小到大排序<br />   (setq rtn (gxl-sort rtn '(lambda (e1 e2) (< (apply '+ e1) (apply '+ e2)))))<br />   ;;;对剩余lst2表组表<br />   (if lst2<br />     (if (= 1 (length lst2))<br />       (setq rtn (cons (cons (car lst2) (car rtn)) (cdr rtn)))<br />       (if (= 2 (length lst2))<br />         (setq lst4 (car rtn)<br />               lst5 (cadr rtn)<br />               rtn (cddr rtn)<br />               lst4 (cons (car lst2) lst4)<br />               lst5 (cons (cadr lst2) lst5)<br />               rtn (append (list lst4 lst5) rtn)<br />               )<br />         )<br />         <br />       <br />       )<br />     )<br />   rtn<br />   )<br /> <br />

露水2

也 研究研究

Gu_xl

修正一下，当表长小于6个时的错误！请大家测试

2. ;;; (averagelst '(1 2 3  5 10 5 6 8 3 12)) 返回 '((1 3 6 8) (3 5 10) (2 5 12)) (setq lst '(1 2 3  5 10 5 6 8 3 12))
   
3. (defun averagelst (lst / lst1  lst2 lst3 lst4 rtn i )
   
4.   ;;;表从小到大排序
   
5.   (setq lst1 (gxl-sort lst '(lambda (e1 e2) (> e1 e2))))
   
6.   (if (< (length lst1) 4)
   
7.     (setq rtn (reverse (mapcar 'list lst1)))
   
8.       
   
9.       (progn
   
10. 
    
11.   ;;;表lst1 拆分长度为3 的表
    
12.   (setq lst1 (reverse (GXL-LST-SPLIT lst1 3)))
    
13.   ;;;表长度如不是3的倍数，拆分为两个表lst1 和lst2
    
14.   (if (/= 3 (length (car lst1)))
    
15.     (setq lst2 (reverse (car lst1))
    
16.    lst1 (mapcar 'reverse (cdr lst1))
    
17.    )
    
18.     )
    
19.   (setq i -1)
    
20.   ;;;各组数据按奇偶位置的不同进行大小反序
    
21.   (setq lst1 (mapcar '(lambda (x) (if (= (rem (setq i (1+ i)) 2) 1) (reverse x) x)) lst1))
    
22.   (if (= 0 (rem (length lst1) 2))
    
23.     ;;;lst1表个数为偶数，依次组表
    
24.     (setq rtn (apply 'mapcar (cons 'list lst1)))
    
25.     ;;;lst1表个数为奇数，取出第一个表，剩下的依次组表
    
26.     (progn
    
27.       (if (/= (length lst1) 1)
    
28. 
    
29.       (setq lst3 (car lst1)
    
30.             lst1 (cdr lst1)
    
31.             )
    
32. )
    
33.       ;;;取出第一个表，剩下的依次组表
    
34.       (setq rtn (apply 'mapcar (cons 'list lst1)))
    
35.       ;;;按各组数据的和从小到大排序
    
36.       (setq rtn (GXL-SORT rtn '(lambda (e1 e2) (< (apply '+ e1) (apply '+ e2)))))
    
37.       (if lst3
    
38. (progn
    
39.       ;;;取出第的一个表从大到小排序
    
40.       (setq lst3 (GXL-SORT lst3 '(lambda (e1 e2) (> e1 e2))))
    
41.       ;;;将lst3加入组表
    
42.       (setq rtn (mapcar 'cons lst3 rtn))
    
43.       )
    
44. )
    
45.       )
    
46.     )
    
47.   ;;;按各组数据的和从小到大排序
    
48.   (setq rtn (gxl-sort rtn '(lambda (e1 e2) (< (apply '+ e1) (apply '+ e2)))))
    
49.   ;;;对剩余lst2表组表
    
50.   (if lst2
    
51.     (if (= 1 (length lst2))
    
52.       (setq rtn (cons (cons (car lst2) (car rtn)) (cdr rtn)))
    
53.       (if (= 2 (length lst2))
    
54.         (setq lst4 (car rtn)
    
55.               lst5 (cadr rtn)
    
56.               rtn (cddr rtn)
    
57.               lst4 (cons (car lst2) lst4)
    
58.               lst5 (cons (cadr lst2) lst5)
    
59.               rtn (append (list lst4 lst5) rtn)
    
60.               )
    
61.         )
    
62.         
    
63.       
    
64.       )
    
65.     )
    
66.     )
    
67.     )
    
68.   rtn
    
69.   )
    

;;; (averagelst '(1 2 3  5 10 5 6 8 3 12)) 返回 '((1 3 6 8) (3 5 10) (2 5 12)) (setq lst '(1 2 3  5 10 5 6 8 3 12))<br /> (defun averagelst (lst / lst1  lst2 lst3 lst4 rtn i )<br />   ;;;表从小到大排序<br />   (setq lst1 (gxl-sort lst '(lambda (e1 e2) (> e1 e2))))<br />   (if (< (length lst1) 4)<br />     (setq rtn (reverse (mapcar 'list lst1)))<br />       <br />       (progn<br /> <br />   ;;;表lst1 拆分长度为3 的表<br />   (setq lst1 (reverse (GXL-LST-SPLIT lst1 3)))<br />   ;;;表长度如不是3的倍数，拆分为两个表lst1 和lst2<br />   (if (/= 3 (length (car lst1)))<br />     (setq lst2 (reverse (car lst1))<br />    lst1 (mapcar 'reverse (cdr lst1))<br />    )<br />     )<br />   (setq i -1)<br />   ;;;各组数据按奇偶位置的不同进行大小反序<br />   (setq lst1 (mapcar '(lambda (x) (if (= (rem (setq i (1+ i)) 2) 1) (reverse x) x)) lst1))<br />   (if (= 0 (rem (length lst1) 2))<br />     ;;;lst1表个数为偶数，依次组表<br />     (setq rtn (apply 'mapcar (cons 'list lst1)))<br />     ;;;lst1表个数为奇数，取出第一个表，剩下的依次组表<br />     (progn<br />       (if (/= (length lst1) 1)<br /> <br />       (setq lst3 (car lst1)<br />             lst1 (cdr lst1)<br />             )<br /> )<br />       ;;;取出第一个表，剩下的依次组表<br />       (setq rtn (apply 'mapcar (cons 'list lst1)))<br />       ;;;按各组数据的和从小到大排序<br />       (setq rtn (GXL-SORT rtn '(lambda (e1 e2) (< (apply '+ e1) (apply '+ e2)))))<br />       (if lst3<br /> (progn<br />       ;;;取出第的一个表从大到小排序<br />       (setq lst3 (GXL-SORT lst3 '(lambda (e1 e2) (> e1 e2))))<br />       ;;;将lst3加入组表<br />       (setq rtn (mapcar 'cons lst3 rtn))<br />       )<br /> )<br />       )<br />     )<br />   ;;;按各组数据的和从小到大排序<br />   (setq rtn (gxl-sort rtn '(lambda (e1 e2) (< (apply '+ e1) (apply '+ e2)))))<br />   ;;;对剩余lst2表组表<br />   (if lst2<br />     (if (= 1 (length lst2))<br />       (setq rtn (cons (cons (car lst2) (car rtn)) (cdr rtn)))<br />       (if (= 2 (length lst2))<br />         (setq lst4 (car rtn)<br />               lst5 (cadr rtn)<br />               rtn (cddr rtn)<br />               lst4 (cons (car lst2) lst4)<br />               lst5 (cons (cadr lst2) lst5)<br />               rtn (append (list lst4 lst5) rtn)<br />               )<br />         )<br />         <br />       <br />       )<br />     )<br />     )<br />     )<br />   rtn<br />   )<br />

leeli

GXL-SORT不懂是什么
在研究

Gu_xl

回复 leeli 的帖子

GXL-SORT是替代vl-sort的函数，因为使用vl-sort函数排序，该函数的返回值可能删除了相同值的元素！例如
(vl-sort '(1 2 3 2 4 6 4 7) '(lambda (e1 e2) (< e1 e2)))
返回 '(1 2 3 4 6 7)
而使用GXL-SORT函数则不会删除相同值的原素，(gxl-sort '(1 2 3 2 4 6 4 7) '(lambda (e1 e2) (< e1 e2)))
返回
'(1 2 2 3 4 4 6 7)

leeli

谢谢 领导解释