排序问题，还有没有更简单的办法？

wharan

1. ;;以下子程序按既定专业排序
   
2. (defun zypx (lst / i Lstok Newlst tmp tmp1 lst1)
   
3.   (setq  Lstok '("*总*"     "*规*"     "*建*"   "*结*"      "*水*"
   
4.     "*暖*"     "*电*"     "*饰*"    )
   
5.   )
   
6.   (setq Lst '("建筑" "电气" "给排水" "规划" "暖通" "总图" "装饰" "结构")
   
7.   (setq Newlst '())
   
8.   (foreach tmp LstOK
   
9.     (foreach tmp1 Lst1
   
10.       (if (wcmatch tmp1 tmp)
    
11.   (setq Newlst (cons tmp1 Newlst))
    
12.       )
    
13.     )
    
14.   )
    
15.   (setq Newlst (reverse Newlst))
    
16.   Newlst
    
17. )

;;以下子程序按既定专业排序<br /> (defun zypx (lst / i Lstok Newlst tmp tmp1 lst1)<br />   (setq  Lstok '("*总*"     "*规*"     "*建*"   "*结*"      "*水*"<br />     "*暖*"     "*电*"     "*饰*"    )<br />   )<br />   (setq Lst '("建筑" "电气" "给排水" "规划" "暖通" "总图" "装饰" "结构")<br />   (setq Newlst '())<br />   (foreach tmp LstOK<br />     (foreach tmp1 Lst1<br />       (if (wcmatch tmp1 tmp)<br />   (setq Newlst (cons tmp1 Newlst))<br />       )<br />     )<br />   )<br />   (setq Newlst (reverse Newlst))<br />   Newlst<br /> )

这是一个排序问题，就是要把Lst 表中的元素按照LstOK 中的顺序排列。嵌套循环固然没有问题，还有没有其他更简单或者效率更高的办法呢？

菜卷鱼

建议你再把vl-sort 的用法再看50遍

1. (defun _nthlst (str strlst / i s)
   
2.   (setq i 0)
   
3.   (vl-some '(lambda (x)
   
4.         (setq i (1+ i))
   
5.         (if (wcmatch str x)
   
6.     (setq s i)
   
7.         )
   
8.       )
   
9.      strlst
   
10.   )
    
11.   s
    
12. )
    
13. (defun sortlst2lstok (lst lstok)
    
14.   (vl-sort lst
    
15.            (function
    
16.              (lambda (x y) (< (_nthlst x lstok) (_nthlst y lstok)))
    
17.            )
    
18.   )
    
19. )
    

(defun _nthlst (str strlst / i s)<br />   (setq i 0)<br />   (vl-some '(lambda (x)<br />         (setq i (1+ i))<br />         (if (wcmatch str x)<br />     (setq s i)<br />         )<br />       )<br />      strlst<br />   )<br />   s<br /> )<br /> (defun sortlst2lstok (lst lstok)<br />   (vl-sort lst<br />            (function<br />              (lambda (x y) (< (_nthlst x lstok) (_nthlst y lstok)))<br />            )<br />   )<br /> )<br />

夏生生

无需排序

1. (setq Lstok '("*总*" "*规*" "*建*" "*结*" "*水*" "*暖*" "*电*" "*饰*"))
   
2. (setq Lst '("建筑" "电气" "给排水" "规划" "暖通" "总图" "装饰" "结构"))
   
3. (apply 'append
   
4.        (mapcar
   
5.    (function
   
6.      (lambda (x)
   
7.        (vl-remove-if-not (function (lambda (y) (wcmatch y x))) lst)
   
8.        )
   
9.      )
   
10.    Lstok
    
11.    )
    
12.        )

(setq Lstok '("*总*" "*规*" "*建*" "*结*" "*水*" "*暖*" "*电*" "*饰*"))<br /> (setq Lst '("建筑" "电气" "给排水" "规划" "暖通" "总图" "装饰" "结构"))<br /> (apply 'append<br />        (mapcar<br />    (function<br />      (lambda (x)<br />        (vl-remove-if-not (function (lambda (y) (wcmatch y x))) lst)<br />        )<br />      )<br />    Lstok<br />    )<br />        )

自贡黄明儒

(mapcar '(lambda (y) (car (vl-remove-if-not '(lambda (x) (wcmatch x y)) Lst))) Lstok)

x_s_s_1

自贡黄明儒 发表于 2022-4-6 16:43
(mapcar '(lambda (y) (car (vl-remove-if-not '(lambda (x) (wcmatch x y)) Lst))) Lstok)

您的代码，如未一一对应是不行的