方案的深度反轉

Question

當輸入（（1 2）（3 4））的列表時，我想反轉它，但不是（（3 4）（1 2）），這是反向操作，所以我想寫一個深相反的過程：

(define (deep-reverse l) 
    (cond ((null? l) nil) 
     (not (pair? (car l)) l) 
     (else (append (deep-reverse (cdr l)) (list (car l)))))) 

，但它只是拋出回（（12）（34））。什麼是錯的，我如何得到這個工作？

Answer 1

嘗試：

(define (deep-reverse l) (map reverse l)) 

以上是最簡單的可能的答案;一個真正的答案取決於你期望的深度反轉。看到我對你的問題的評論。

如果你想要的一切，一路下滑：

(define (deep-reverse l) 
    (if (list? l) 
     (reverse (map deep-reverse l)) 
     l)) 

這裏是如何工作的（正確）：

> (deep-reverse '(1 2 ((3.1 3.2) (4) "abc"))) 
(("abc" (4) (3.2 3.1)) 2 1) 

Answer 2

你得也很深扭轉在代碼中car。否則，你並沒有深入反轉列表的最前面部分。

(define (deep-reverse l) 
    (cond ((null? l) nil) 
     (not (pair? (car l)) l) 
     (else (append (deep-reverse (cdr l)) (list (deep-reverse (car l))))))) 

Answer 3

一個好的開始是適用於列表的逆向過程。然後修改它以遞歸應用到列表中的每節車廂：

(define (reverse x) 
    (define (go items tail) 
    (if (null? items) tail 
     (go (cdr items) (cons (car items) tail)))) 
    (go x())) 

(define (deep-reverse x) 
    (define (go items tail) 
    (cond ((null? items) tail) 
      ((not (pair? items)) items) 
      (else (go (cdr items) (cons (go (car items)()) tail))))) 
    (go x())) 

深反轉的一個應用是：

(define x (list (list 1 (list 2 3) 4) 5 6 (list 7 8) 9 10)) (display x) (deep-reverse x) 

    ((1 (2 3) 4) 5 6 (7 8) 9 10) 
=> (10 9 (8 7) 6 5 (4 (3 2) 1))