数列排序

azyg125 · 发表于 2019-6-12 00:14:50

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

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

×

;;;数列排序
(defun min->max(lst1 / lst2 a1)
  (setq lst3 nil)
  (while (/= lst1 nil)
(setq lst2 nil)
(setq a1 (apply 'min lst1))
(foreach x lst1
   (if (= x a1)
(setq lst3 (append lst3 (list x)))
(setq lst2 (append lst2 (list x)))
   )
)
(setq lst1 lst2)
  )
  lst3
)
;;;(setq lst1 '(3 5 1 8 2 7 6 0 2 7 -5 -7 8 8))
;;;(-7 -5 0 1 2 2 3 5 6 7 7 8 8 8)

zhystar · 发表于 2019-6-12 07:54:52

谢谢楼主分享

jshailinqq · 发表于 2019-6-12 08:07:29

学习了，谢谢楼主分享

tzfcn · 发表于 2019-6-12 08:13:52

很简捷的函数，很好！

aimisiyou · 发表于 2019-6-12 10:57:15

_$ (setq lst1 '(3 5 1 8 2 7 6 0 2 7 -5 -7 8 8))
(3 5 1 8 2 7 6 0 2 7 -5 -7 8 8)
_$ (mapcar 'fix (vl-sort (mapcar '(lambda (x) (float x)) lst1) '<))
(-7 -5 0 1 2 2 3 5 6 7 7 8 8 8)

azyg125 · 发表于 2019-6-12 11:54:44

aimisiyou 发表于 2019-6-12 10:57
_$ (setq lst1 '(3 5 1 8 2 7 6 0 2 7 -5 -7 8 8))
(3 5 1 8 2 7 6 0 2 7 -5 -7 8 8)
_$ (mapcar 'fix (v ...

(setq lst1 '(3 5 1 8 2 7 6 0 2 7 -5 -7 8 8 7.2)) 怎么办？

azyg125 · 发表于 2019-6-12 11:56:33

aimisiyou 发表于 2019-6-12 10:57
_$ (setq lst1 '(3 5 1 8 2 7 6 0 2 7 -5 -7 8 8))
(3 5 1 8 2 7 6 0 2 7 -5 -7 8 8)
_$ (mapcar 'fix (v ...

加个小数 (setq lst1 '(3 5 1 8 2 7 6 0 2 7 -5 -7 8 8 7.2)) 怎么办？vl-sort 的功能很强大啊。看说明只能消除重复再排序，学习了

aimisiyou · 发表于 2019-6-12 12:22:30

_$ (setq lst1 '(3 5 1 8 2 7 6 0 2 7 -5 -7 8 8 7.2))
(3 5 1 8 2 7 6 0 2 7 -5 -7 8 8 7.2)
_$ (mapcar '(lambda (x) (if (= (fix x) x) (fix x) x)) (vl-sort (mapcar '(lambda (x) (float x)) lst1) '<))
(-7 -5 0 1 2 2 3 5 6 7 7 7.2 8 8 8)
_$

pxr201419 · 发表于 2019-6-12 13:43:52

(mapcar '+ (vl-sort (mapcar '(lambda (x) (float x)) lst1) '<))

st788796 · 发表于 2019-6-12 17:28:27

(mapcar 'cadr (vl-sort (mapcar '(lambda (a) (list (float a) a)) lst1) '(lambda (a b) (< (car a) (car b)))))

dyjwyqz5221 · 发表于 2020-3-26 17:27:00

doslib中有这样的函数，可以不去掉重复，对于整数、小数、字符串及混合的都能排序，比lisp函数高档多了

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

[发布] 数列排序

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