sicp 2.20

sicp_2_20

(define (same-parity x . y)
  (define (f l)
    (cond ((null? l) x) 
          ((=  (remainder  x 2) (remainder  (car l) 2)) (cons (car l) (f (cdr l))))
          (else (f (cdr l)
     )
    )))
  (f y)
  )


(same-parity 1 2 3 4 5 6 7)