This page is part of the web mail archives of SRFI 114 from before July 7th, 2015. The new archives for SRFI 114 contain all messages, not just those from before July 7th, 2015.
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 cowan@xxxxxxxx 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)