suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix typo

Browse Source 
svn: r17294
This commit is contained in:
Sam Tobin-Hochstadt 2009-12-14 20:00:12 +00:00
parent 1e8d979c32
commit 9b13bbb89c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/typed-scheme/ts-guide.scrbl
View File

@ -155,8 +155,8 @@ typed-scheme
(: tree-height (Tree -> Number)) (: tree-height (Tree -> Number))
(define (tree-height t) (define (tree-height t)
(cond [(leaf? t) 1] (cond [(leaf? t) 1]
[else (max (tree-height (node-left t)) [else (max (+ 1 (tree-height (node-left t)))
(tree-height (node-right t)))])) (+ 1 (tree-height (node-right t))))]))
(: tree-sum (Tree -> Number)) (: tree-sum (Tree -> Number))
(define (tree-sum t) (define (tree-sum t)