application/octet-stream
•
1.60 KB
•
20 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"]]
