将表按照一定的规则划分

simon8001

举例说明一下例如有个表a（"a" "1""b" "3""a" "2""c" "4""a" "15""5" "6""7" "34""a" "9""11" "bb""d" "n""m" "mm"）划分为表
（"a" "1""b" "3"）（"a" "2""c" "4"）（"a" "15""5" "6""7" "34"）（"a" "9""11" "bb""d" "n""m" "mm"）
有什么好的思路吗？当然不一定是遇到a还有可能是遇到其他相同的元素然后分段！
我的思路比较混乱，希望得到您的帮助！谢谢

Gu_xl

2. (defun f (l a / c)
   
3.   (while l
   
4.     (if        (= a (car l))
   
5.       (progn
   
6.         (if b
   
7.           (setq        c (cons (reverse b) c)
   
8.                 b nil
   
9.           )
   
10.         )
    
11.         (setq b        (cons (car l) b)
    
12.               l        (cdr l)
    
13.         )
    
14.         (while (and l
    
15.                     (/= a (car l))
    
16.                )
    
17.           (setq        b (cons (car l) b)
    
18.                 l (cdr l)
    
19.           )
    
20.         )
    
21.         (setq c        (cons (reverse b) c)
    
22.               b        nil
    
23.         )
    
24.       )
    
25.       (progn
    
26.         (setq b        (cons (car l) b)
    
27.               l        (cdr l)
    
28.         )
    
29.       )
    
30.     )
    
31.   )
    
32.   (if b
    
33.     (setq c (cons (reverse b) c)
    
34.           b nil
    
35.     )
    
36.   )
    
37. 
    
38.   (reverse c)
    
39. )

(defun f (l a / c)<br />   (while l<br />     (if        (= a (car l))<br />       (progn<br />         (if b<br />           (setq        c (cons (reverse b) c)<br />                 b nil<br />           )<br />         )<br />         (setq b        (cons (car l) b)<br />               l        (cdr l)<br />         )<br />         (while (and l<br />                     (/= a (car l))<br />                )<br />           (setq        b (cons (car l) b)<br />                 l (cdr l)<br />           )<br />         )<br />         (setq c        (cons (reverse b) c)<br />               b        nil<br />         )<br />       )<br />       (progn<br />         (setq b        (cons (car l) b)<br />               l        (cdr l)<br />         )<br />       )<br />     )<br />   )<br />   (if b<br />     (setq c (cons (reverse b) c)<br />           b nil<br />     )<br />   )<br /> <br />   (reverse c)<br /> )

zyhandw

G版真是神速，不过运行后，分离出的第一个子表不是楼主要求的("a" "1""b" "3")，而是("1""b" "3")

simon8001

那也要谢谢G版的帮助！这样我也有思路了！真的很谢谢

Gu_xl

zyhandw 发表于 2013-5-31 17:40
G版真是神速，不过运行后，分离出的第一个子表不是楼主要求的("a" "1""b" "3")，而是("1""b" "3")

怎么不对？
(f '("a" "1""b" "3""a" "2""c" "4""a" "15""5" "6""7" "34""a" "9""11" "bb""d" "n""m" "mm") "a")
==》
(("a" "1" "b" "3") ("a" "2" "c" "4") ("a" "15" "5" "6" "7" "34") ("a" "9" "11" "bb" "d" "n" "m" "mm"))

yoyoho

感谢G版分享程序
测试O.K.

sicky111

G版的程式测试没问题，支持G版。