【SICP练习】60 练习2.30



练习2.30

如果这道题感觉有点难度的话，可以回过头来看看75页定义的两个scale-tree。我的定义如下：

(define (square-tree tree)

   (cond ((null? tree) ‘())

         ((not (pair? tree)) (square tree))

           (else (cons (square-tree (car tree))

                    (square-tree (cdrtree))))))

(define (square-tree tree)

   (map (lambda (sub-tree)

            (if (pair? sub-tree)

               (square-tree sub-tree)

               (square sub-tree)))

         tree))