文字串列的問題

f5612140

请问如何得到下列的结果


'("B" "B0" "B1" "G1" "G2" "G11" "WG1" "WG2" "b1" "b2" "bb1" "bb2" "wg1" "wg2")


-> '("B" "G" "WG" "b" "bb" "wg")                不用考虑排序的问题,如何只取得英文的字头

meflying

(get '("B" "B0" "B1" "G1" "G2" "G11" "WG1" "WG2" "b1" "b2" "bb1" "bb2"
"wg1" "wg2"))

2. (defun get(lst / item lst2)
3.    (setq lst (mapcar '(lambda(e) (while (wcmatch e "*[0-9]") (setq e (substr e 1 (1- (strlen e))))) e)
4.            lst))
5.    (foreach item lst
6.        (if (not (member item lst2))
7.            (setq lst2 (append lst2 (list item)))
8.        )
9.    )
10.    lst2
11. )

(defun get(lst / item lst2)    (setq lst (mapcar '(lambda(e) (while (wcmatch e "*[0-9]") (setq e (substr e 1 (1- (strlen e))))) e)            lst))    (foreach item lst        (if (not (member item lst2))            (setq lst2 (append lst2 (list item)))        )    )    lst2 )

f5612140

谢谢

f5612140

感谢meflying的开头,这是处理带英文的数字排序问题,提供分享

2. (defun get (lst / item)
3.    (setq lst (mapcar '(lambda(e)
4.                                (while (wcmatch e "*[0-9]")
5.                                              (setq e (substr e 1 (1- (strlen e))))
6.                                )
7.                                        e)
8.                  lst)
9.    )
10.    (foreach item lst
11.        (if (not (member item lst2))
12.            (setq lst2 (append lst2 (list item)))
13.        )
14.    )
15. )(defun c:tttsort()
16.   
17.    (setvar "dimzin" 8)
18.   
19.    (setq lst '("ba2" "ba11" "G1" "G1" "G2" "ba1" "B1" "B2" "b1" "b2" "b11" "b12" "B11" "B12"
20.                            "g11" "b" "B" "g12" "g2" "g1" "b" "wg11" "B" "G1" "B3" "b3" "b0" "B0"
21.                            "WG1" "WG11" "WG2" "wg1" "wg11" "wg2" "B101" "B111" "B99" "b1" "G111"
22.                            "g22" "g101" "g110" "b99" "G33"))   (setq lst (vl-sort lst '<))
23. (print lst)
24.   
25.    (get lst)   (setq lst2 (vl-sort lst2 '<))   (setq tsort1 '())
26.    (setq i 0)
27.    (repeat (length lst2)
28.          (setq txt (nth i lst2))
29.          (setq j 0)
30.          (setq tsort '())
31.          (repeat (length lst)
32.                (setq txtt (nth j lst))
33.                (setq txtlen (strlen txt))
34.                (setq mark2 (ascii (substr txtt (+ txtlen 1) 1)))
35.                (setq txtnx (substr txtt (+ txtlen 1)))
36.                (if (= txtnx "")(setq txtnx "-0.5"))
37.                (if (or (and (>= mark2 65)(<= mark2 90))(and (>= mark2 97)(<= mark2 122)))
38.                        (setq mark2 T)
39.                )
40.                (setq mark1 (wcmatch txtt (strcat txt "*")))
41.                (if (and (= mark1 T)(/= mark2 T)) (setq tsort (cons txtnx tsort)))
42.                (setq j (+ j 1))
43.            )           (setq tsort (mapcar 'atof tsort))            
44.            (setq txtnx (vl-sort tsort '<))
45.   
46.              (setq tsort3 '())
47.              (setq k 0)
48.              (repeat (length txtnx)
49.                    (setq txk (nth k txtnx))
50.                    (setq txkk (strcat txt (rtos txk)))
51.                    (if (= txk -0.5)(setq txkk txt))
52.                    (setq tsort3 (cons txkk tsort3))
53.                    (setq k (+ k 1))
54.              )              (setq tsort1 (append tsort3 tsort1))           (setq i (+ i 1))
55.   
56.      )
57.      (setq tsort1 (reverse tsort1))
58.      (print tsort1)
59. (prin1)
60. )
61.   

(defun get (lst / item)    (setq lst (mapcar '(lambda(e)                                (while (wcmatch e "*[0-9]")                                              (setq e (substr e 1 (1- (strlen e))))                                )                                        e)                  lst)    )    (foreach item lst        (if (not (member item lst2))            (setq lst2 (append lst2 (list item)))        )    ) )(defun c:tttsort()       (setvar "dimzin" 8)       (setq lst '("ba2" "ba11" "G1" "G1" "G2" "ba1" "B1" "B2" "b1" "b2" "b11" "b12" "B11" "B12"                            "g11" "b" "B" "g12" "g2" "g1" "b" "wg11" "B" "G1" "B3" "b3" "b0" "B0"                            "WG1" "WG11" "WG2" "wg1" "wg11" "wg2" "B101" "B111" "B99" "b1" "G111"                            "g22" "g101" "g110" "b99" "G33"))   (setq lst (vl-sort lst '<)) (print lst)       (get lst)   (setq lst2 (vl-sort lst2 '<))   (setq tsort1 '())    (setq i 0)    (repeat (length lst2)          (setq txt (nth i lst2))          (setq j 0)          (setq tsort '())          (repeat (length lst)                (setq txtt (nth j lst))                (setq txtlen (strlen txt))                (setq mark2 (ascii (substr txtt (+ txtlen 1) 1)))                (setq txtnx (substr txtt (+ txtlen 1)))                (if (= txtnx "")(setq txtnx "-0.5"))                (if (or (and (>= mark2 65)(<= mark2 90))(and (>= mark2 97)(<= mark2 122)))                        (setq mark2 T)                )                (setq mark1 (wcmatch txtt (strcat txt "*")))                (if (and (= mark1 T)(/= mark2 T)) (setq tsort (cons txtnx tsort)))                (setq j (+ j 1))            )           (setq tsort (mapcar 'atof tsort))                        (setq txtnx (vl-sort tsort '<))                 (setq tsort3 '())              (setq k 0)              (repeat (length txtnx)                    (setq txk (nth k txtnx))                    (setq txkk (strcat txt (rtos txk)))                    (if (= txk -0.5)(setq txkk txt))                    (setq tsort3 (cons txkk tsort3))                    (setq k (+ k 1))              )              (setq tsort1 (append tsort3 tsort1))           (setq i (+ i 1))         )      (setq tsort1 (reverse tsort1))      (print tsort1) (prin1) )   

meflying

我发现很多人的编程都不习惯用局部变量，我觉得这样不好，，，


如上面的，LST2要作为GET的局部变量，在主函数中这样调用


(setq lst2 (get lst))


这样，不需要知道GET函数的内部情况，如：我们不需要他里面用了变量LST2，只需调用它取得返回值就可以了


而且，这样后，GET函数可以在别的地方调用，如：


(setq bbb (get lstx));如果按你原来的方法，要把bbb变为排序后的表，就得再写一个类似的GET函数

f5612140

meflying发表于2004-6-11 8:56:00我发现很多人的编程都不习惯用局部变量，我觉得这样不好，，，



如上面的，LST2要作为GET的局部变量，在主函数中这样调用


(setq lst2 (get lst))


这样，...

这是很好的观念,谢谢提点

无痕

带英文的数字排序


好像写的长了些，呵呵，说说而以，别介意

f5612140

无痕发表于2004-6-11 9:32:00带英文的数字排序 好像写的长了些，呵呵，说说而以，别介意

哈哈,就等你来个精简代码

无痕

终于考完试了....

2. ;含数字的字符串排序－－－－－原创 by 无痕.2004.6(defun strbrk (str / strl s1 s2)
3.    (setq strl (vl-string->list str))
4.    (mapcar '(lambda(x)(if (<= 48 x 57) (setq s2 (cons x s2)) (setq s1 (cons x s1)))) strl)
5.    (list (reverse s1) (reverse s2))
6. )
7. (defun strsort (strlst / lst i)
8.    (setq lst   (mapcar 'strbrk strlst)
9.   lst (vl-sort lst '(lambda (x y) (< (read (vl-list->string(cadr x)))(read (vl-list->string (cadr y))))))
10.   i       (apply 'max (mapcar '(lambda(x)(length(car x))) lst)))
11.    (repeat i
12.        (setq i       (1- i)
13.      lst (vl-sort lst '(lambda (x y) (< (nth i (car x)) (nth i (car y))))))
14.    )
15.    (mapcar '(lambda(x)(strcat (vl-list->string (car x))(vl-list->string (cadr x)))) lst)
16. )

;含数字的字符串排序－－－－－原创 by 无痕.2004.6(defun strbrk (str / strl s1 s2)    (setq strl (vl-string->list str))    (mapcar '(lambda(x)(if (<= 48 x 57) (setq s2 (cons x s2)) (setq s1 (cons x s1)))) strl)    (list (reverse s1) (reverse s2)) ) (defun strsort (strlst / lst i)    (setq lst   (mapcar 'strbrk strlst)   lst (vl-sort lst '(lambda (x y) (< (read (vl-list->string(cadr x)))(read (vl-list->string (cadr y))))))   i       (apply 'max (mapcar '(lambda(x)(length(car x))) lst)))    (repeat i        (setq i       (1- i)      lst (vl-sort lst '(lambda (x y) (< (nth i (car x)) (nth i (car y))))))    )    (mapcar '(lambda(x)(strcat (vl-list->string (car x))(vl-list->string (cadr x)))) lst) )

3. ;|
4. 已知:
5. (setq  strlst '("ba2"     "ba11"   "G1"       "G1"       "G2"       "ba1"     "B1"
6.              "B2"       "b1"       "b2"       "b11"     "b12"     "B11"     "B12"
7.              "g11"     "b"         "B"         "g12"     "g2"       "g1"       "b"
8.              "wg11"   "B"         "G1"       "B3"       "b3"       "b0"       "B0"
9.              "WG1"     "WG11"   "WG2"     "wg1"     "wg11"   "wg2"     "B101"
10.              "B111"   "B99"     "b1"       "G111"   "g22"     "g101"   "g110"
11.              "b99"     "G33"
12.            )
13. )
14. 测试:(strsort strlst) ->
15. ("B" "B" "B0" "B1" "B2" "B3" "B11" "B12" "B99" "B101" "B111" "G1" "G1" "G1"
16. "G2" "G33" "G111" "WG1" "WG2" "WG11" "b" "b" "b0" "b1" "b1" "b2" "b3" "b11"
17. "b12" "b99" "ba1" "ba2" "ba11" "g1" "g2" "g11" "g12" "g22" "g101" "g110" "wg1"
18. "wg2" "wg11" "wg11")
19. |;

;| 已知: (setq  strlst '("ba2"     "ba11"   "G1"       "G1"       "G2"       "ba1"     "B1"              "B2"       "b1"       "b2"       "b11"     "b12"     "B11"     "B12"              "g11"     "b"         "B"         "g12"     "g2"       "g1"       "b"              "wg11"   "B"         "G1"       "B3"       "b3"       "b0"       "B0"              "WG1"     "WG11"   "WG2"     "wg1"     "wg11"   "wg2"     "B101"              "B111"   "B99"     "b1"       "G111"   "g22"     "g101"   "g110"              "b99"     "G33"            ) ) 测试:(strsort strlst) -> ("B" "B" "B0" "B1" "B2" "B3" "B11" "B12" "B99" "B101" "B111" "G1" "G1" "G1" "G2" "G33" "G111" "WG1" "WG2" "WG11" "b" "b" "b0" "b1" "b1" "b2" "b3" "b11" "b12" "b99" "ba1" "ba2" "ba11" "g1" "g2" "g11" "g12" "g22" "g101" "g110" "wg1" "wg2" "wg11" "wg11") |;

aeo000000

2. (defun str-sort(lst / func)
3.   (defun func(str / num s str1)
4.    (setq s"" str1 str)
5.    (while(and(/= str1 "")(null(setq num(distof str1))))
6.            (setq s(strcat s (substr str1 1 1)) str1 (substr str1 2) )
7.    )
8.    (list s (if num num -1e-20) str)
9.   )
10.   ;;;
11.   (mapcar 'last
12.    (vl-sort (mapcar 'func lst)
13.        '(lambda(x y / x1 y1)(setq x1(car x) y1(car y))
14.                (if(= x1 y1)(<(cadr x)(cadr y))(< x1 y1))
15.        )
16.    )
17.   )
18. )

(defun str-sort(lst / func)   (defun func(str / num s str1)    (setq s"" str1 str)    (while(and(/= str1 "")(null(setq num(distof str1))))            (setq s(strcat s (substr str1 1 1)) str1 (substr str1 2) )    )    (list s (if num num -1e-20) str)   )   ;;;   (mapcar 'last    (vl-sort (mapcar 'func lst)        '(lambda(x y / x1 y1)(setq x1(car x) y1(car y))                (if(= x1 y1)(<(cadr x)(cadr y))(< x1 y1))        )    )   ) )

(str-sort
'("w45""w-3""s""z1""z-4""df676""df24""bff4""bff""bff2""A34""A""A2""A5""bff-5"))-->
("A" "A2" "A5" "A34" "bff-5" "bff" "bff2" "bff4" "df24" "df676" "s" "w-3" "w45"
"z-4" "z1")