miloignis/kraken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Initial insert-only RB tree implementing a set

Browse Source
This commit is contained in:
Nathan Braswell
2021-08-01 22:15:58 -04:00
parent 537386d97b
commit 93fd0d1943
2 changed files with 47 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
rb_test.kp Normal file
View File

@@ -0,0 +1,15 @@
(with_import "./rb.kp"
(let (
first empty
_ (println first " contains? " 1 " ? " (contains? first 1))
second (insert first 1)
_ (println second " contains? " 1 " ? " (contains? second 1))
third (insert second 2)
_ (println third " contains? " 1 " ? " (contains? third 1))
_ (println third " contains? " 2 " ? " (contains? third 2))
fourth (insert third 3)
_ (println fourth " contains? " 1 " ? " (contains? fourth 1))
_ (println fourth " contains? " 2 " ? " (contains? fourth 2))
_ (println fourth " contains? " 3 " ? " (contains? fourth 3))
_ (println fourth " contains? " 4 " ? " (contains? fourth 4))
) nil))