for-each-numberとmap-numbersは簡単。 (define for-each-numbers (lambda (proc l) (for-each proc (filter number? l)))) (define map-numbers (lambda (proc l) (map proc (filter number? l)))) ですな。 これを、for-eachやmapを受け取ってfor-each-num…