lisp查找最值_lisp – 如何使用密钥获取列表的最小值/最大值

CL-USER 8 > (reduce #'min '((1) (-1) (3)) :key #'first)

-1

要么

CL-USER 9 > (loop for e in '((1) (-1) (3)) minimize (first e))

-1

我担心容器元素更难：

CL-USER 9 > (defun minimum (list predicate key)

(when list

(let* ((m0 (first list))

(m1 (funcall key m0)))

(mapc (lambda (e0 &aux (e1 (funcall key e0)))

(when (funcall predicate e1 m1)

(psetf m0 e0 m1 e1)))

list)

m0)))

MINIMUM

CL-USER 10 > (minimum '((a 1) (b -1) (c -2)) #'< #'second)

(C -2)

CL-USER 11 > (minimum '((a 1) (b -1)) #'< #'second)

(B -1)

CL-USER 12 > (minimum '((a 1)) #'< #'second)

(A 1)

CL-USER 13 > (minimum '() #'< #'second)

NIL