lisp - 定义 "minimum"函数以返回列表中的最小值，使用另一个返回两个数字中较小者的函数

Question

(defun *smaller* (x y)
  ( if (> x y) y
        x))
(defun *minimum* (lst)
  (do ((numbers lst (cdr numbers))
       (result (car numbers) (*smaller* result (car numbers))))
      ((null numbers) result)))

LISP 说“最小”函数中的变量“numbers”是未绑定(bind)的，尽管我认为我已经将它绑定(bind)到“lst”。我错过了什么？

Answer 1

Do 并行绑定(bind)。 result的初值表达式为(cdr numbers)，numbers未绑定(bind)。 Do*会在这里工作。