2007-09-14から1日間の記事一覧
(define (copy items condition) (if (null? items) items (if (condition (car items)) (cons (car items) (copy (cdr items) condition)) (copy (cdr items) condition)))) (define (same-parity . items) (copy items (if (even? (car items)) even? odd?…