本文主要是介绍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 '())) '()))
>
这篇关于sicp 习题2.27的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!