プログラミングGauche 8.3.3練習問題

(define (any-pred . preds)
  (lambda (x)
    (fold (lambda (pred false) (or (pred x) false)) #f preds)))

(define (every-pred . preds)
  (lambda (x)
    (fold (lambda (pred true) (and (pred x) true)) #t preds)))