[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: New release of SRFI 114 with implementation

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)