たぶん大丈夫 ;;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)) )…