1 665c255d 2023-08-04 jrmu (define (same-parity a . z)
 2 665c255d 2023-08-04 jrmu   (define (iter items answer)
 3 665c255d 2023-08-04 jrmu     (if (null? items)
 4 665c255d 2023-08-04 jrmu 	answer
 5 665c255d 2023-08-04 jrmu 	(iter (cdr items)
 6 665c255d 2023-08-04 jrmu 	      (if (= (remainder (car items) 2)
 7 665c255d 2023-08-04 jrmu 		     (remainder a 2))
 8 665c255d 2023-08-04 jrmu 		  (append answer (list (car items)))
 9 665c255d 2023-08-04 jrmu 		  answer))))
10 665c255d 2023-08-04 jrmu   (iter z (list a)))