+ { { 10 100 } { 20 200 } { 30 300 } { 41 401 } }
+ [ ] collect-assoc-by
+] unit-test
+
+{
+ H{ { t V{ 100 200 300 } } { f V{ 401 } } }
+} [
+ { { 10 100 } { 20 200 } { 30 300 } { 41 401 } }
+ [ [ even? ] dip ] collect-assoc-by
+] unit-test
+
+{
+ H{
+ { t V{ { 10 100 } { 20 200 } { 30 300 } } }
+ { f V{ { 41 401 } } }
+ }
+} [
+ { { 10 100 } { 20 200 } { 30 300 } { 41 401 } }
+ [ [ drop even? ] [ 2array ] 2bi ] collect-assoc-by
+] unit-test
+
+{
+ H{ { t V{ 10 20 30 } } { f V{ 41 } } }
+} [
+ { { 10 100 } { 20 200 } { 30 300 } { 41 401 } }
+ [ even? ] collect-key-by
+] unit-test
+
+{
+ H{ { t V{ 100 200 300 } } { f V{ 401 } } }
+} [
+ { { 10 100 } { 20 200 } { 30 300 } { 41 401 } }
+ [ even? ] collect-value-by