; your code goes here
(define (same-parity x xs)
  (define parity (remainder x 2))
  (define (iter xs acc)
    (if (null? xs)
        (reverse acc)
        (if (= (remainder (car xs) 2) parity)
            (iter (cdr xs) (cons (car xs) acc))
            (iter (cdr xs) acc))))
  (iter xs '()))

(define xs (list 1 2 3 4 5 6 7 8 9 10))

(display (same-parity 1 xs))
(newline)
(display (same-parity 2 xs))
(newline)