2008-12-31 SICP 2.20 SICP Scheme 手抜きした。 (use srfi-1) (define (same-parity n . lis) (let ((pred (if (even? n) even? odd?))) (cons n (filter pred lis)))) (same-parity 1 2 3 4 5 6 7) (same-parity 2 3 4 5 6 7)