对表进行排序问题

笑2笑 · 发表于 2013-6-25 16:26:13

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

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

×

(SETQ LST '(((1 5 0) 30) ((0 6 0) 80) ((3 5 0) 50)((2 5 0) 40)))

排序后:

(SETQ LST '(((0 6 0) 80)((1 5 0) 30)((2 5 0) 40)((3 5 0) 50)))

以上是根据X坐标从小到大排序，该如果实现，请大家指点，谢谢！

Free-Lancer · 发表于 2013-6-25 17:16:38

(vl-sort lst '(lambda (a b) (< (caar a) (caar b))) )

炫翔 · 发表于 2013-6-25 18:03:52

只要第一个排序了，整个子表会跟着走的，别被后面的元素干扰了

newer · 发表于 2013-6-25 18:48:56

去函数发布里面看看，有高飞鸟版主的 X最小，Y最小，X最大，Y最小等一系列的代码。

GTJ116600 · 发表于 2013-6-25 22:29:04

Free-Lancer 发表于 2013-6-25 17:16
(vl-sort lst '(lambda (a b) (< (caar a) (caar b))) )

呵呵，还有CAAR这种用法

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

[求助] 对表进行排序问题

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

点评