(VL-SORT list comparision-function)这个函数不能取掉相同元素的解决方法。请看看

badgirl · 发表于 2004-6-9 17:23:00

(VL-SORT list comparision-function)这个函数不能取掉相同元素的解决方法。请看看这样行不？[br]上次我问了下面这个问题：请教关于(VL-SORT list comparision-function)函数的用法？
谢谢大家给我的方法。但是还是不能很好的解决排序的问题，比如LIST 里的元素不是单一的字母，而是多个字母，大家提供的方法就不好用了。下面是我写了一段程序来解决这个问题，请看看行不行?
(defun C:sas (/ c1-item-temp data-list temp-list c1-list c1-item)
   (setq c1-item-temp
   (list "F"    "F"    "F"    "F"    "F"    "F"    "F"    "F"    "F"
   "F"    "F"    "F"    "F"    "F"    "F"    "F"    "F"    "F"
   "F"    "F"    "F"    "F"    "F"    "F"    "F"    "F"    "F"
   "F"    "F"    "F"    "F"    "F"    "F"    "F"    "F"    "F"
   "F"    "F"    "F"    "F"    "F"    "F"    "F"    "F"    "F"
   "F"    "F"    "F"    "F"    "F"    "F"    "F"    "F"    "F"
   "F"    "F"    "F"    "F"    "F"    "F"    "F"    "F"    "F"
   "F"    "F"    "F"    "S"    "S"    "S"    "S"    "S"    "S"
   "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"
   "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"
   "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"
   "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"
   "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"
   "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"
   "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"
   "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"    "S"
   "S"    "S"    "S"    "S"    "T"    "T"
   )
   )
   (setq c1-item (vl-sort c1-item-temp '<))
;;;先安顺序排好
   (setq c1-item （list (car c1-item-temp)))
   (print c1-item)
   (setq c1-list c1-item-temp)
;;;排好序的c1-item-temp里去除相同的元素写到c1-item里
   (foreach data-list c1-item-temp
   (setq temp-list (vl-remove data-list c1-list))
   (if (/= (length temp-list) (length c1-list))
   (progn
(setq c1-list temp-list)
(setq c1-item (cons (car c1-list) c1-item))
   )
   )
   )
   (print "c1-item")
   (print c1-item)
)
结果是
"c1-item"
(nil "T" "S" "F")

meflying · 发表于 2004-6-9 17:46:00

那个点怎么来的，你看看这个的结果：(cons "a" (cons "a" "b"))，再看看函数cons的用法。。。我的程序如下：

copy


(defun C:sas (/ c1-item-temp c1-item)
   (setq c1-item-temp
   (list "F"     "F"     "F"   "F"     "F"     "F"     "F"   "F"     "F"
               "F"     "F"     "F"   "F"     "F"     "F"     "F"   "F"     "F"
               "F"     "F"     "F"   "F"     "F"     "F"     "F"   "F"     "F"
               "F"     "F"     "F"   "F"     "F"     "F"     "F"   "F"     "F"
               "F"     "F"     "F"   "F"     "F"     "F"     "F"   "F"     "F"
               "F"     "F"     "F"   "F"     "F"     "F"     "F"   "F"     "F"
               "F"     "F"     "F"   "F"     "F"     "F"     "F"   "F"     "F"
               "F"     "F"     "F"   "S"     "S"     "S"     "S"   "S"     "S"
               "S"     "S"     "S"   "S"     "S"     "S"     "S"   "S"     "S"
               "S"     "S"     "S"   "S"     "S"     "S"     "S"   "S"     "S"
               "S"     "S"     "S"   "S"     "S"     "S"     "S"   "S"     "S"
               "S"     "S"     "S"   "S"     "S"     "S"     "S"   "S"     "S"
               "S"     "S"     "S"   "S"     "S"     "S"     "S"   "S"     "S"
               "S"     "S"     "S"   "S"     "S"     "S"     "S"   "S"     "S"
               "S"     "S"     "S"   "S"     "S"     "S"     "S"   "S"     "S"
               "S"     "S"     "S"   "S"     "S"     "S"     "S"   "S"     "S"
               "S"     "S"     "S"   "S"     "T"     "T"
             )
   )
   (setq c1-item-temp (vl-sort c1-item-temp '<) c1-item nil)
   (foreach item c1-item-temp
       (if (not (member item c1-item))
           (setq c1-item (append c1-item (list item)))
       )
   )   
   (print "c1-item")
   (print c1-item)
)

badgirl · 发表于 2004-6-9 18:03:00

谢谢班主，多出这个点被我找到原因了，只是一高兴在编辑帖子时忘记将将帖子的内容改过来了。多出的小数点是因为我的初始C1-ITEM是一个原子而不是一个表。对不大家。班主的方法当然要比我的好多了。我会努力的。
我将贴子已修改过来了。

(VL-SORT list comparision-function)这个函数不能取掉相同元素的解决方法。请看看

发表回复

精选推荐

浏览过的版块