如何对列表重组？

zhhunicorn

l_data=（（一年级 班级1 王二 张三）（一年级 班级2 李四 赵五）（一年级 班级3 钱六 孙七）
           （二年级 班级1 周八 吴九）（二年级 班级2 郑十 何一）（二年级 班级3 吕二 施三）
           （三年级 班级1 冯四 陈五）（三年级 班级2 褚六 魏七）（三年级 班级3 蒋八 韩九））
我需要把它变成：
l_data=（
            （（一年级）（班级1 王二 张三）（班级2 李四 赵五）（班级3  钱六 孙七））
            （（二年级）（班级1 周八 吴九）（班级2 郑十 何一）（班级3 吕二 施三））
            （（三年级）（班级1 冯四 陈五）（班级2 褚六 魏七）（班级3 蒋八 韩九））
             ）
这个怎么搞？
我的代码：

1. (defun arrange_list(arrange_data / l_data tmp_data first_data line_data end_data)
   
2.   (setq first_data '()
   
3.   l_data '()
   
4.   end_data '()
   
5.   tmp_data '())
   
6.   (setq first_data (car (car arrange_data)))
   
7.   ;(setq l_data (list (list(car (car arrange_data))) (cdr (car arrange_data))))
   
8.   (setq l_data (append l_data (list first_data)))
   
9.   (setq l_data (append l_data ((cdr (car arrange_data)))))
   
10.   (foreach line_data arrange_data
    
11.     (progn
    
12.     (setq tmp_data (car line_data))
    
13.      (if (/= tmp_data first_data)
    
14.          (progn
    
15.             ;(append l_data (list tmp_data))
    
16.             ;(append l_data (cdr line_data))
    
17.       (setq end_data (list end_data  (list l_data)))
    
18.             (setq l_data '())
    
19.       (setq l_data (append l_data (list tmp_data)))
    
20.       (setq l_data (append l_data (list(cdr line_data))))
    
21.           )
    
22.          (progn
    
23.            (setq l_data (append l_data (list(cdr line_data))))
    
24.          )
    
25.         );end of if
    
26.     );end of progn
    
27.     );end of foreach
    
28.   (setq end_data (append end_data (list l_data)))
    
29. )

(defun arrange_list(arrange_data / l_data tmp_data first_data line_data end_data)<br />   (setq first_data '()<br />   l_data '()<br />   end_data '()<br />   tmp_data '())<br />   (setq first_data (car (car arrange_data)))<br />   ;(setq l_data (list (list(car (car arrange_data))) (cdr (car arrange_data))))<br />   (setq l_data (append l_data (list first_data)))<br />   (setq l_data (append l_data ((cdr (car arrange_data)))))<br />   (foreach line_data arrange_data<br />     (progn<br />     (setq tmp_data (car line_data))<br />      (if (/= tmp_data first_data)<br />          (progn<br />             ;(append l_data (list tmp_data))<br />             ;(append l_data (cdr line_data))<br />       (setq end_data (list end_data  (list l_data)))<br />             (setq l_data '())<br />       (setq l_data (append l_data (list tmp_data)))<br />       (setq l_data (append l_data (list(cdr line_data))))<br />           )<br />          (progn<br />            (setq l_data (append l_data (list(cdr line_data))))<br />          )<br />         );end of if<br />     );end of progn<br />     );end of foreach<br />   (setq end_data (append end_data (list l_data)))<br /> )

zhhunicorn

发现一个cons函数，但是好像是往表的前面加元素

caoyin

;;;楼主所想要的肯定跟描述的不一样，——一般这样的数据结构没什么用——但我还是按照你的描述编程，
(setq l_data '((一年级，班级1，姓名1，姓名2)(一年级，班级2，姓名1，姓名2)(一年级，班级3，姓名1，姓名2)
           (二年级，班级1，姓名1，姓名2)(二年级，班级2，姓名1，姓名2)(二年级，班级3，姓名1，姓名2)
           (三年级，班级1，姓名1，姓名2)(三年级，班级2，姓名1，姓名2)(三年级，班级3，姓名1，姓名2))
)
(mapcar '(lambda (X) (read(strcat "("(vl-string-subst ")(" "，"  (vl-princ-to-string X))")")))
        l_data
)
->
(((一年级) (班级1，姓名1，姓名2)) ((一年级) (班级2，姓名1，姓名2)) ((一年级) (班级3，姓名1，姓名2)) ((二年级)
(班级1，姓名1，姓名2)) ((二年级) (班级2，姓名1，姓名2)) ((二年级) (班级3，姓名1，姓名2)) ((三年级)
(班级1，姓名1，姓名2)) ((三年级) (班级2，姓名1，姓名2)) ((三年级) (班级3，姓名1，姓名2)))

zhhunicorn

楼上代码看起来好简洁，但是对我来说好晕
不管那么多，我试了一下
经过(mapcar '(lambda (X) (read(strcat "("(vl-string-subst ")(" "，"  (vl-princ-to-string X))")")))
        l_data
)表达式的运算后l_data的值好像没变化。
补充一下，“，”是应该不要的。

zhhunicorn

或者这样提问：
有一个表叫做表a，里面有一个或多个元素，每个元素都是另一个表。
有另一个表叫做表n，怎么把表n加到表a的最后，并把表n做为表a的一个元素。
表a=(表1 表2 表3...)
加入后：
表a=（表1 表2 表3... 表n)

caoyin

所以我明知道你提问错误，但怎么办，我如何猜测你的意图是什么呢???!
还有，最好把全角的括号换成半角的，别人帮你的时候很麻烦

caoyin

回5楼
(setq LST1 '(1 2 3 4 5)
         LST2 '(6)
)

(append LST1 LST2)

zhhunicorn

晕了，。。。
多打了一对括号！

zhhunicorn

终于搞定了，谢谢caoyin。

1. 
   
2. (defun arrange_list(arrange_data / l_data tmp_data first_data line_data end_data)
   
3.   (setq first_data '()
   
4. l_data '()
   
5. end_data '()
   
6. tmp_data '())
   
7.   (setq first_data '"")
   
8.   (foreach line_data arrange_data
   
9.     (progn
   
10.    (setq tmp_data (car line_data))
    
11.     (if (/= tmp_data first_data)
    
12.         (progn
    
13.          ;(append l_data (list tmp_data))
    
14.          ;(append l_data (cdr line_data))
    
15.    (setq end_data (append end_data  (list l_data)))
    
16.          (setq l_data '())
    
17.    (setq l_data (append  l_data (list tmp_data)))
    
18.    (setq l_data (append (list l_data) (list(cdr line_data))))
    
19.     (setq first_data tmp_data)
    
20.         )
    
21.         (progn
    
22.         (setq l_data (append l_data (list(cdr line_data))))
    
23.        )
    
24.        );end of if
    
25.    );end of progn
    
26.     );end of foreach
    
27.   (setq end_data (append end_data (list l_data)))
    
28.   (setq end_data (cdr end_data))
    
29. )
    

<br /> (defun arrange_list(arrange_data / l_data tmp_data first_data line_data end_data)<br />   (setq first_data '()<br /> l_data '()<br /> end_data '()<br /> tmp_data '())<br />   (setq first_data '"")<br />   (foreach line_data arrange_data<br />     (progn<br />    (setq tmp_data (car line_data))<br />     (if (/= tmp_data first_data)<br />         (progn<br />          ;(append l_data (list tmp_data))<br />          ;(append l_data (cdr line_data))<br />    (setq end_data (append end_data  (list l_data)))<br />          (setq l_data '())<br />    (setq l_data (append  l_data (list tmp_data)))<br />    (setq l_data (append (list l_data) (list(cdr line_data))))<br />     (setq first_data tmp_data)<br />         )<br />         (progn<br />         (setq l_data (append l_data (list(cdr line_data))))<br />        )<br />        );end of if<br />    );end of progn<br />     );end of foreach<br />   (setq end_data (append end_data (list l_data)))<br />   (setq end_data (cdr end_data))<br /> )<br />