読者です 読者をやめる 読者になる 読者になる

(wat-aro)

無職から有職者にランクアップしました

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

scheme gauche
(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)))