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

fixed splay-tree bug

Browse Source
This commit is contained in:
Ryan Culpepper 2010-10-03 00:31:16 -06:00
parent 4aef03795d
commit ad76c9ea7b
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/data/splay-tree.rkt
View File

@ -865,10 +865,13 @@ Top-down splay
;; condensing copy ;; condensing copy
(v:set-next! mem* NODE-SIZE) (v:set-next! mem* NODE-SIZE)
(let loop ([n root]) (let loop ([n root])
(when n (cond [n
(let ([n* (vnode! mem* (vnode-key mem n) (vnode-value mem n) #f #f)]) (let ([n* (vnode! mem* (vnode-key mem n) (vnode-value mem n) #f #f)])
(set-vnode-left! mem* n* (loop (vnode-left mem n))) (set-vnode-left! mem* n* (loop (vnode-left mem n)))
(set-vnode-right! mem* n* (loop (vnode-right mem n)))))) (set-vnode-right! mem* n* (loop (vnode-right mem n)))
n*)]
[else #f]))
(set-compact-splay-tree-root! s NODE-SIZE)
(set-compact-splay-tree-mem! s mem*)))) (set-compact-splay-tree-mem! s mem*))))
;; ======== ;; ========

4
collects/tests/data/ordered-dict.rkt
View File

@ -227,12 +227,12 @@
(provide performance) (provide performance)
(define (deep-test [test 'splay]) (define (deep-test [test 'splay] [count 100])
(let ([mk (case test (let ([mk (case test
((splay) mksplay) ((splay) mksplay)
((adj) mkadj) ((adj) mkadj)
((skip) mkskip))]) ((skip) mkskip))])
(for ([seed (in-range 100)]) (for ([seed (in-range count)])
(random-seed seed) (random-seed seed)
(printf "seed = ~s\n" seed) (printf "seed = ~s\n" seed)
(p "test" dict-test mk #t)))) (p "test" dict-test mk #t))))