q2.20

たぶん大丈夫

;;q2.20
(define (same-parity x . ls)
   (let ((chk  (if (even? x) even? (lambda (y) (if (even? y) #f #t)) )))
     (define (iter l)
       (if (null? l)
           '()
           (if (chk (car l))
               (cons (car l) (iter (cdr l)) )
               (iter (cdr l)  ))))
   (iter (car ls))
  )
)
(same-parity -2 '(1 -2 3 -4))
(same-parity +1 '(1 -2 3 -4))

ちょっと大人げない感じ。lambdaのeven?とか
今期は「にゃんこい」を全力で応援しまふ。