(define (find-min l f g)
  (fold-left (lambda (m c)
               (if (g c)
                   (min (f c) m)
                   m))
    +inf.0 l))