scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

xanadu - btree

This commit is contained in:
erana 2012-01-21 13:40:11 +09:00
parent e69708fefd
commit 3c9770e9d1
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scsh/xanadu/b-tree.scm
View File

@ -94,9 +94,9 @@
((cond ((>= i (- len 1));;last node
(do ((j 0 (+ j 1)))
((= j len) (display "node not found.") 0)
(add-rec str (vector-ref j tree))))
((and (string<? str (vector-ref tree i))
(string>? str (vector-ref tree (+ i 1))))
(search-rec str (vector-ref j tree))))
((and (string<? str (((vector-ref tree i)'get-data)))
(string>? str (((vector-ref tree (+ i 1))'get-data))))
(display "node not found in tree.") 0)
((string=? str (vector-ref tree i))
(display "string found in tree.") str)
@ -123,9 +123,7 @@
)))
((string=? str (vector-ref tree i))
(set! i (vector-length tree)))
(else (display "never reached."))))
)))
(else (display "never reached.")))))
(define (add str)
(add-rec *tree))