（XD::List:Extremum）获取表满足条件的元素

marting · 发表于 2019-1-22 19:41:55

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

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

×

(defun XD::List:Extremum (cmp lst / rtn)
(setq rtn (car lst))
(foreach itm (cdr lst)
(if (apply cmp (list itm rtn))
(setq rtn itm)
)
)
rtn
)

; _$ (XD::List:Extremum '< '(3 8 9 1 5 6 2 7)) -> 1
; _$ (XD::List:Extremum '(lambda ( a b ) (< (caddr a) (caddr b))) '((1.2 5.7 8.3) (9.4 2.6 0.3) (5.7 6.6 7.2)))? -> (9.4 2.6 0.3)

ynhh · 发表于 2019-1-22 21:11:18

大师这能再多举点例子吗

marting · 发表于 2019-1-22 22:32:32

ynhh 发表于 2019-1-22 21:11
大师这能再多举点例子吗

(XD::List:Extremum '(lambda ( a b ) (> (cadr a) (cadr b))) '((1.2 5.7 8.3) (9.4 2.6 0.3) (5.7 6.6 7.2)))
(5.7 6.6 7.2)

每个元素是个子表，上面代码求每个元素第二个数最大的那个

gdfyhao · 发表于 2019-1-23 08:43:32

不太容易看懂代码，但是功能很需要，学习了

csy0415 · 发表于 2019-1-24 09:50:06

感谢大师分享。

479274135 · 发表于 2019-1-24 14:55:42

过来学习学习，感谢分享

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

[表] （XD::List:Extremum）获取表满足条件的元素

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

评分

点评