uni/inf2810/gr10/oppgave.scm

(define (same-parity . items)
  (define (iter items)
    (cond ((null? (cdr items)) #t)
          ((= (remainder (car items) 2) (remainder (cadr items) 2))
           (iter (cdr items)))
          (else #f)))
  (iter items))

(same-parity 10 2 5)