Kevin Wortman scripsit:

> (define (comparator-min comparator first . rest)
>   (fold (lambda (x least)
>           (if (<? comparator x least) x least))
>         first
>         rest))

That works too.

--
John Cowan  xxxxxx@ccil.org  http://ccil.org/~cowan
Any sufficiently-complicated C or Fortran program contains an ad-hoc,
informally-specified bug-ridden slow implementation of half of Common Lisp.
        --Greenspun's Tenth Rule of Programming (rules 1-9 are unknown)