ううーん、おもったより時間がかかってしまった。
(define (same-parity x . xs)
(define (filtered xs)
(cond ((null? xs) xs)
((= (modulo x 2) (modulo (car xs) 2))
(cons (car xs) (filtered (cdr xs))))
(cons x (filtered xs)))
(filtered xs) を計算する際に、偶奇性を決める最初の x を cons してしまったりして悩んだ。あとフィルターの作り方に慣れていない。