(define (filter (proc lis)) (cond ((null? lis) lis) (pred (car lis)) (cons (car lis) (filter proc (cdr lis))) (else (filter proc (cdr lis))))) (define (for-each-numbers (proc lis)) (for-each proc (filter numbers? lis))) (define (map-number…

(numbers-only for-each)や(numbers-only map)で入れ子のリストを処理できるか？ → できない 理由： 例えば入れ子のリストの '(1 2 3 (4 5) 6) の ４番目の要素 '(4 5) は数値ではなく、リストであるから walker が満たすべき条件： 入れ子のリストの中も処…