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

Extend match to support ~unquote for matching against the *value* of expressions or variables, and use that to implement deletion for the RB-tree set

Browse Source
This commit is contained in:
Nathan Braswell
2021-08-01 23:48:41 -04:00
parent 93fd0d1943
commit e0802baf5e
4 changed files with 85 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
rb_test.kp
View File

@@ -12,4 +12,19 @@
_ (println fourth " contains? " 2 " ? " (contains? fourth 2))
_ (println fourth " contains? " 3 " ? " (contains? fourth 3))
_ (println fourth " contains? " 4 " ? " (contains? fourth 4))
fifth (delete fourth 1)
_ (println fifth " contains? " 1 " ? " (contains? fifth 1))
_ (println fifth " contains? " 2 " ? " (contains? fifth 2))
_ (println fifth " contains? " 3 " ? " (contains? fifth 3))
_ (println fifth " contains? " 4 " ? " (contains? fifth 4))
sixth (delete fifth 3)
_ (println sixth " contains? " 1 " ? " (contains? sixth 1))
_ (println sixth " contains? " 2 " ? " (contains? sixth 2))
_ (println sixth " contains? " 3 " ? " (contains? sixth 3))
_ (println sixth " contains? " 4 " ? " (contains? sixth 4))
seventh (delete sixth 2)
_ (println seventh " contains? " 1 " ? " (contains? seventh 1))
_ (println seventh " contains? " 2 " ? " (contains? seventh 2))
_ (println seventh " contains? " 3 " ? " (contains? seventh 3))
_ (println seventh " contains? " 4 " ? " (contains? seventh 4))
) nil))