체계에 대한 깊은 역방향

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

하지만 그냥 뒤쪽으로 ((1 2) (3 4)) 던졌습니다. 무엇이 잘못되었으며 어떻게 작동합니까?

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