计划中的职能

Question

好的，所以我最近发布了一个有关在Scheme中创建递归函数的问题，该函数将生成甚至从下面的定义列表中调用的函数：

(define list0 (list 'j 'k 'l 'm 'n 'o 'j) )
(define list1 (list 'a 'b 'c 'd 'e 'f 'g) )
(define list2 (list 's 't 'u 'v 'w 'x 'y 'z) )
(define list3 (list 'j 'k 'l 'm 'l 'k 'j) )
(define list4 (list 'n 'o 'p 'q 'q 'p 'o 'n) )
(define list5 '((a b) c (d e d) c (a b) )
(define list6 '((h i) (j k) l (m n)) )
(define list7 (f (a b) c (d e d) (b a) f) )

对于我的evens函数，我创建了此递归函数：

(define mylist '(1 2 3 4 5 6 7))
(define (evens lst)
(define (do-evens lst odd)
    (if (null? lst)
        lst
    (if odd
        (do-evens (cdr lst) #f)
        (cons (car lst) (do-evens (cdr lst) #t)))))
        (do-evens lst #t))

但是现在我试图创建一个执行如下操作的“ oddrev”函数：（oddrev 1st），该函数应该返回一个新列表，该列表由从1st取出的奇数元素形成，但顺序与其原始顺序相反。 那就是如果我输入：

(oddrev '(a b c d e f g))

将会/应该返回：（geca）

(oddrev (LIST 's 't 'u 'v 'w 'x 'y 'z))

应该/应该返回：（ywus）

(oddrev '((h i) (j k) l (m n)))

将会/应该返回：

(l (h i))

和

(oddrev '())

这将/应该返回一个空列表，等等。

我想知道是否有人可以告诉我这看起来如何。 我正在尝试只是为了将来的参考学习方案，我听说这是一种很酷的编程语言，但是截至目前，我遇到了一些麻烦。 对于一个新人的任何帮助将不胜感激。 谢谢

Answer 1

好吧，将其分解为多个部分，首先获取每个奇数元素。

好吧，既然您已经有了这个不错的小功能来获取偶数，我们如何使用它来获取赔率？ 好吧，如果我们要告诉它它实际上是从偶数开始的，那么我们说了(do-evens lst #f)而不是(do-evens lst #t) (do-evens lst #f) 。 现在，我们将获得所有奇怪的元素！ 为了清楚起见，也许我们想在此函数的主体中将偶数=>奇数更改（一个简单的查找替换就可以了）

接下来我们要扭转这种局面。 有两种方法可以手动或通过Scheme库执行此操作。 如果您想手动操作，我会让您解决挑战。 否则， reverse将为我们完成这项工作。

我会让您弄清楚如何结合这两个步骤。 不太难！ 快乐策划