-USING: assocs.extras kernel math sequences tools.test ;
+USING: arrays assocs.extras kernel math math.order sequences tools.test ;
{ f } [ f { } deep-at ] unit-test
{ f } [ f { "foo" } deep-at ] unit-test
{ H{ { "a" V{ 2 5 } } { "b" V{ 3 } } { "c" V{ 10 } } } }
[
{ H{ { "a" 2 } { "b" 3 } } H{ { "a" 5 } { "c" 10 } } }
- [ ] [ assoc-merge ] map-reduce
+ [ ] [ assoc-collect ] map-reduce
] unit-test
{ H{ } } [ H{ { 1 2 } } 2 over delete-value-at ] unit-test
{ t } [
H{ { "1" 1 } { "2" 2 } { "3" 3 } }
[ { "1" "2" "2" } rekey-assoc ] keep eq?
-] unit-test
\ No newline at end of file
+] unit-test
+
+{ H{ { 1 11 } { 2 22 } { 3 33 } } } [
+ H{ { 1 11 } { 2 20 } }
+ H{ { 2 22 } { 3 33 } }
+ [ max ] assoc-merge
+] unit-test
+
+{ H{ { 1 11 } { 2 22 } { 3 33 } } } [
+ H{ { 2 22 } { 3 33 } }
+ H{ { 1 11 } { 2 20 } }
+ [ max ] assoc-merge
+] unit-test
+
+{ H{ { 1 11 } { 2 20 } { 3 33 } } } [
+ H{ { 1 11 } { 2 20 } }
+ H{ { 2 22 } { 3 33 } }
+ [ min ] assoc-merge
+] unit-test
+
+{ f } [ f f [ min ] assoc-merge ] unit-test
+
+! Ensure non-destructive
+{
+ H{ { 1 11 } { 2 20 } }
+ H{ { 2 22 } { 3 33 } }
+ H{ { 1 11 } { 2 20 } { 3 33 } }
+} [
+ H{ { 1 11 } { 2 20 } }
+ H{ { 2 22 } { 3 33 } } 2dup
+ [ min ] assoc-merge
+] unit-test
+
+! Ensure destructive
+{
+ H{ { 1 11 } { 2 20 } { 3 33 } }
+ H{ { 2 22 } { 3 33 } }
+ H{ { 1 11 } { 2 20 } { 3 33 } }
+} [
+ H{ { 1 11 } { 2 20 } }
+ H{ { 2 22 } { 3 33 } } 2dup
+ [ min ] assoc-merge!
+] unit-test
+
+! assoc-collapse
+{ f } [ f [ min ] assoc-collapse ] unit-test
+
+{
+ H{ { 1 11 } { 2 20 } }
+ H{ { 1 11 } { 2 20 } { 3 30 } { 4 40 } }
+} [
+ H{ { 1 11 } { 2 20 } } dup
+ H{ { 2 22 } { 3 33 } }
+ H{ { 3 30 } { 4 40 } } 3array
+ [ min ] assoc-collapse
+] unit-test