sicp 习题2.27

(define x (list (list 1 2) (list 3 4)))

上面的list 原来其实就是一个二叉树，但是初次学习，看了40分钟竟然也没有意识到。

最后还是看了看题解，二叉树的遍历而已。 

lisp的一个表几乎就可以表示许多数据结构，链表，二叉树，甚至图。 这和其他语言真的很不一样。

下面是代码:

#lang planet neil/sicp
(define x (list (list 1 2) (list 3 4)))

(define (deep-reverse tree)
    (cond ((null? tree) '())
          ((not (pair? tree)) tree)
          (else
            (reverse (list (deep-reverse (car tree))           
                           (deep-reverse (cadr tree)))))))

run:

Welcome to DrRacket, version 5.3.3 [3m].
Language: planet neil/sicp; memory limit: 512 MB.
> (deep-reverse x)
(mcons
 (mcons 4 (mcons 3 '()))
 (mcons (mcons 2 (mcons 1 '())) '()))
>