Sunday, June 7, 2009

Ex-2.20 

(define (same-parity x . r)
  (let ((proc (if (even? x) even? odd?)))
    (cons x
          (filter proc r))))
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)