Lisp 返回的Scheme程序

这是正确的反向方法吗？我想从以下列表中创建一个“oddrev”函数：

(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) )

（oddrev'（a b c d e f g））

哪些会/应该返回：

（g e c a）

（oddrev（列表's't'u'v'w'x'y'z））

哪些会/应该返回：

（y w u s）

（oddrev'（（hi）（jk）l（mn））

哪些会/应该返回：

（l（hi））

及

（oddrev'（））

哪个会/应该返回一个空列表，等等

此代码看起来正确吗？如何将reverse命令合并到其中：

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

或者我应该做这样的事情：

(define (oddrev 1st)
    (if (NULL? 1st) '()
        (append (reverse (cdr 1st)) (list (car 1st)))))

---

最简单的方法是构建一个（odd lis）过程来获取列表中的奇数元素，然后生成一个（oddrev lis）过程来调用odd过程，并对其结果应用反向过程

奇怪的过程应该如下所示：

    (define (odd lis)
      (if (null? lis)
          '()
          (if (= (length lis) 1)
              (list (car lis))
              (cons (car lis) (odd (cddr lis))))))

鉴于此，我们现在必须定义oddrev。这部分很简单，只需将其称为奇数，然后将其反转，如下所示：

    (define (oddrev lis)
      (reverse (odd lis))

我在DrRacket 5.3中对此进行了测试，以确保它工作正常，并且结果完全符合您问题中概述的规范。如果您对代码有任何问题，请告诉我

(define (oddrev L)
 (oddrev-helper L '()))

 (define (oddrev-helper L-in L-out)
  (cond 
   ((null? L-in) L-out)
   ((null? (cdr L-in)) (cons (car L-in) L-out))
   (else (oddrev-helper (cddr l-in) (cons (car L-in) L-out)))))

---

递归地使用append通常是一个很好的信号，表明有更好的方法可以实现这一点，通常是使用空列表作为附加参数调用助手，并在此基础上构建列表。

非常感谢，很高兴知道我已经接近正确答案了