2009-04-02から1日間の記事一覧
(define (my-any-pred . pred) (lambda (x) (define (my-any-pred-core preds x) (cond [(null? #?=preds) #f] [((car preds) x) #t] [else (my-any-pred-core (cdr preds) x)])) (my-any-pred-core pred x))) (define (my-any-pred . pred) (lambda (x) (co…