条件排序问题

wharan

坛内大侠有过这个条件排序。现在有个问题：原始表original-list中如果有元素（"装修"）和条件patterns 不匹配（条件中没有"装修"），则把不匹配的元素放置到排序后的表最后。以下程序应该怎样修改？




(defun c:ttt ()
  (setq        original-list
         '("PS_2_PW"        "DIE_1_PW"   "PS_PW"          "PH_PW"
           "DIE_PW"        "电气"             "PH_1_PW"          "DIE_2_PW"
           "PS_1_PW"        "其他"  "装修"
          )
  )
  (setq patterns '("DI" "PS" "PH" "其" "电" "水"));排序条件
  (TJPX original-list patterns)
  )
  
;;按条件排序表中元素,元素可能是字符串，也可能是子表
  (defun TJPX(original-list patterns / )
  ;; 使用 mapcar 和 apply 函数处理列表
  (apply 'append
         (mapcar
           '(lambda (pattern / filtered-list)
              ;; 过滤原始列表中匹配当前模式的元素
              (if (setq        filtered-list
                         (vl-remove-if-not
                           '(lambda (item)
                              (wcmatch item (strcat pattern "*"))
                            )
                           original-list
                         )
                  )
                ;; 对过滤后的列表进行排序
                (vl-sort filtered-list
                         '(lambda (item1 item2 / position)
                            (setq position (+ (strlen pattern) 2))
                            (< (atoi (substr item1 position 1))
                               (atoi (substr item2 position 1))
                            )
                          )
                )
              )
            )
           patterns
         )
  )
)

kozmosovia

最好先分组，将不包含的单独弄成一个表，再排序剩下的形成另外一个表，最后两个表合并。一次排序就直接排出来的话，估计需要的条件逻辑写起来太复杂的。

chslwj521

这个不难吧，分析字符串就好了，含A一堆，含B的一堆，含C的一堆...什么都不含的一堆NO，最后组合ABC NO，就行啦。