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

Question

我正在尝试创建一个名为map-odd-mapper的过程，其中我接受一个可以应用于列表的过程

例如：

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

我正在考虑把它作为一个let函数 （define（make-odd-mapper f） （让（..........使用ret-odds的东西允许索引，这样你就可以得到奇数......

ret-odds定义为 （定义（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（list）（ret-odds（列表地图））））