Question

我正在尝试使用DrRacket来反转Scheme中的列表。

代码：

(define rev
  (lambda(l)
    (if (null? l)
        '()
        (append (rev (cdr l)) (list (car l))))))

如果我输入(rev '(a((b)(c d)(((e))))))，则输出为(((b) (c d) (((e)))) a)。

我希望它是(((((e)))(d c)(b))a)。我看了一下：How to Reverse a List?但是我的输出更差。我究竟做错了什么？任何帮助，将不胜感激！

Answer 1

这比它看起来更棘手，你试图在列表列表上进行“深度反转”，不仅元素被反转，而且结构......在这里，试试这个：

(define (rev l)
  (let loop ((lst l)
             (acc '()))
    (cond ((null? lst) acc)
          ((not (pair? lst)) lst)
          (else (loop (cdr lst) 
                      (cons (rev (car lst))
                            acc))))))

按预期工作：

(rev '(a ((b) (c d) (((e))))))
=> '(((((e))) (d c) (b)) a)

Answer 2

此代码可以做到：

(define (rev-list lst)
  (if (null? lst)
      null
      (if (list? lst)
          (append (rev-list (cdr lst)
                  (list (rev-list (car lst))))
          lst)))

结果是：

>>> (display (rev-list '((1 7) 5 (2 4 (5 9))) ))
(((9 5) 4 2) 5 (7 1))

想法很简单：如果arg不是列表，则返回rev-list(arg)。

Scheme反转列表

2 个答案: