排序中，如何不删除重复项

PLgis · 发表于 2014-6-27 08:44:51

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

（(vl-sort '(3 2 4 1 2) '<)
返回
(1 2 3 4)
如何，不删除重复项，返回
(1 2 2 3 4)

819534890 · 发表于 2014-6-27 09:17:11

本帖最后由 819534890 于 2014-6-27 09:34 编辑

用vl-soft-i 然后根据结果读取。
(defun sort_i(lst cf / end_lst)
(mapcar '(lambda (x) (setq end_lst (cons (nth x lst) end_lst))) (vl-sort-i lst cf))
(reverse end_lst)
)

_$ (sort_i '(3 2 4 1 2) '<)
(1 2 2 3 4)

_$ (sort_i '(1 3 4 3 5 3 1 3 5) '>)
(5 5 4 3 3 3 3 1 1)

PLgis · 发表于 2014-6-27 10:23:51

谢谢819534890的指教，学习了

csharp · 发表于 2014-6-27 11:16:39

只有 INT 会忽略重复项，还可以
(mapcar 'fix (vl-sort (mapcar 'distof lst) '<)

csharp · 发表于 2014-6-27 15:14:50

特殊应用就用特定方法，混合类型还是要 vl-sort-i

账号		自动登录	找回密码
密码			立即注册

[求助] 排序中，如何不删除重复项

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

评分

点评

评分