VL
Size: a a a
¥
¥
¥
MK
MK
AP
¥
MK
¥
AP
PG
(cl-defun cl-min (< seq &key key reverse)
(cl-reduce
(cond ((and key reverse)
(lambda (lhs rhs)
(if (funcall < (funcall key lhs) (funcall key rhs)) rhs lhs)))
(key
(lambda (lhs rhs)
(if (funcall < (funcall key lhs) (funcall key rhs)) lhs rhs)))
(reverse
(lambda (lhs rhs)
(if (funcall < lhs rhs) rhs lhs)))
(t
(lambda (lhs rhs)
(if (funcall < lhs rhs) lhs rhs))))
seq))
(cl-defsubst cl-max (< seq &key key reverse)
(cl-min < seq :key key :reverse (not reverse)))
PG
MK
¥
¥
MK
MK
MK