-1

这是正确的反向方法吗？我想从以下列表中创建一个“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 (LIST 's 't 'u 'v 'w 'x 'y 'z)) 这将/应该返回： (y w u s)

(oddrev '((h i) (j k) l (m n))) 这将/应该返回： (l (h i))

和

(oddrev '()) 这将/应该返回一个空列表等。

此代码看起来是否正确，我如何将反向命令合并到其中：

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

2 回答 2

1

最简单的方法是构建一个 (odd lis ) 过程来获取列表的奇数元素，然后创建一个 (oddrev lis ) 过程来调用奇数过程，并将相反的过程应用于它的结果。

奇怪的过程应该是这样的：

    (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 中对此进行了测试以确保它有效，并且结果完全符合您问题中概述的规范。如果您对代码有任何问题，请告诉我。

于 2012-11-14T04:45:29.293 回答
0 
(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 通常是一个很好的信号，表明有更好的方法来做到这一点，通常是通过调用一个带有空列表作为附加参数的助手并在此基础上构建你的列表。

于 2013-05-09T00:00:51.543 回答