map - 试图在方案中创建一个名为 map-odd-mapper 的过程

Question

我正在尝试制作一个名为 map-odd-mapper 的过程，在其中我采用一个 proc，然后可以将其应用于列表

前任：

((make-odd-mapper add-one) (list 14 38 29 10 57))
(15 30 58)

我正在考虑将它作为一个 let 函数，如 (define (make-odd-mapper f) (let (........something using ret-odds 来允许索引，这样你就可以获得奇数....

ret-odds 定义为 (define (ret-odds lst) (if (null?lst) null (cons (car lst) (if (null? (cdr lst)) null (ret-odds (cdr (cdr lst)) ))))) 这样做的目的只是制作一个 proc，它允许我将诸如 add-one 之类的过程应用到奇数索引列表中......

Answer 1

这个问题可以分解成两个较小的问题。冒着迂腐的风险：你能描述一下这两个小问题是什么，并为它们提供测试用例吗？

Answer 2

(define (make-odd-mapper f) (lambda (lst) (ret-odds (map f lst))))