application/octet-stream
•
2.49 KB
•
35 lines
[test/add 1 [avl/get [avl/from-list '[1 2 3]] 1]]
[test/add 4 [avl/get [avl/from-list '[1 2 3 4 5]] 4]]
[test/add 15 [avl/get [avl/from-list '[23 42 100 10 15 64 101]] 15]]
[test/add 100 [avl/get [avl/from-list '[23 42 100 100 101 100]] 100]]
[test/add 101 [avl/get [avl/from-list '[23 42 100 100 101 100]] 101]]
[test/add 100 [avl/get [avl/remove [avl/from-list '[23 42 100 10 64 101]] 15] 100]]
[test/add #nil [avl/get [avl/from-list '[1 2 3]] 4]]
[test/add #nil [avl/get [avl/from-list #nil] 1]]
[test/add #nil [avl/get [avl/remove [avl/from-list '[23 42 100 10 15 64 101]] 15] 15]]
[test/add #nil [avl/get [avl/remove [avl/from-list '[23 42 100 10 64 101]] 15] 15]]
[test/add 355 [avl/reduce [avl/from-list '[23 42 100 10 15 64 101]] + 0]]
[test/add 355 [avl/reduce-bin [avl/from-list '[23 42 100 10 15 64 101]] + 0]]
[test/add -19 [avl/reduce [avl/from-list '[23 42 100 10 15 64 101]] - 0]]
[test/add 125 [avl/reduce-bin [avl/from-list '[23 42 100 10 15 64 101]] - 0]]
[test/add '[42 100 101 64 15 23 10] [avl/to-list [avl/from-list '[23 42 100 10 15 64 101]]]]
[test/add 200 [avl/get [avl/map [avl/from-list '[23 42 100 10 15 64 101]] [\ [x] [* x 2]]] 200]]
[test/add #nil [avl/get [avl/map [avl/from-list '[23 42 100 10 15 64 101]] [\ [x] [* x 2]]] 100]]
[test/add 100 [avl/get [avl/insert [avl/map [avl/remove [avl/from-list '[23 42 100 10 15 64 101]] 100] [\ [x] [* x 2]]] 100] 100]]
[test/add "100" [avl/get [avl/map [avl/from-list '[23 42 100 10 15 64 101]] string] "100"]]
[test/add "100" [avl/get [avl/map-to [avl/from-list '[23 42 100 10 15 64 101]] string [\ [x y] [if [< x y] -1 [if [> x y] 1 0]]]] "100"]]
[test/add "a" [avl/get [avl/from-list '["a" "b" "c"]] "a"]]
[test/add "ein" [avl/get [avl/from-list '["Dies" "ist" "ein" "Test"]] "ein"]]
[test/add #nil [avl/get [avl/from-list '["a" "b" "c"]] "d"]]
[test/add #nil [avl/get [avl/from-list '["a" "b" "c"]] :a]]
[test/add :c [avl/get [avl/from-list '[:a :b :c]] :c]]
[test/add #nil [avl/get [avl/from-list '[:a :b :c]] :d]]
[test/add #nil [avl/get [avl/from-list '[:a :b :c]] "c"]]
[test/add 'c [avl/get [avl/from-list '[c b a]] 'c]]
[test/add 'c [avl/get [avl/from-list '[b c a]] 'c]]
[test/add 'c [avl/get [avl/from-list '[b c b b b a]] 'c]]
[test/add '[b c a] [avl/to-list [avl/from-list '[b c b b b a]] 'c]]
[test/add #nil [avl/get [avl/from-list '[c b a]] 'd]]
[test/add :type-error [try car [avl/from-list '[c :b a]]]]
[test/add :type-error [try car [avl/from-list '["c" b a]]]]
[test/add :type-error [try car [avl/from-list '[123 b a]]]]
