8.31.2006
5:22 AM
In a belated response to netytan, I post my own any? and all? written in Scheme.
(define (any? proc ls) (if (null? ls) #f (if (proc (car ls)) #t (any? proc (cdr ls))))) ;; (any? even? '(1 3 5 8 7)) => #t, shortcircuiting at 8 ;; (any? odd? '(2 4 6 8 10)) => #f (define (all? proc ls) (if (null? ls) #t (if (proc (car ls)) (all? proc (cdr ls)) #f))) ;; (all? even? '(2 4 6 1 2 3)) => #f, shortcircuiting at 1 ;; (all? odd? '(1 3 5 7 9 11)) => #t
Just because.