2013年11月9日
递归
摘要： (define (partial-tree elts n) (if (= n 0) (cons '() elts) (let ((left-size (quotient (- n 1) 2))) (let ((left-result (partial-tree elts left-size))) (let ((left-tree (car left-result)) (non-left-elts (cdr left-result)) (right-size (- n (+ left... 阅读全文
posted @ 2013-11-09 12:45 zhengguan 阅读(148) 评论(0) 推荐(0)