比较

xiaoliu · 发表于 2004-6-7 16:16:00

求出一个表中所有元素的最小值及其索引值,如何简便的实现,我编的使用了一个循环,

又臭又长,各位有何高见

龙龙仔 · 发表于 2004-6-7 16:47:00

甚么样的表??

BDYCAD · 发表于 2004-6-7 16:47:00

参考: (SETQ A '(83.6623 71.4177 63.1291 56.0229 50.0124 44.9721 40.9721 38.1499 36.4133 36.7574 38.3859 41.1827 45.2161 49.654 54.5474 59.4716 64.7774 71.0663 160.997))
(setq sd (apply 'min A)) 找出最小值 SD=36.4133 (setq sd (apply 'mAX A)) 找出最大值 SD=160.997

meflying · 发表于 2004-6-7 17:47:00

本帖最后由作者于 2004-6-7 18:10:47 编辑

应该是这样吧：(setq a '((1 . 25.4) (2 . 15.4) (3 . 22.4) (4 . 5.4)))

(car (vl-sort a '(lambda (e1 e2) (< (cdr e1) (cdr e2)))));将找到(4 . 5.4)

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