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?とか
今期は「にゃんこい」を全力で応援しまふ。