+{
+ H{ { t V{ 100 200 } } { f V{ 301 401 } } }
+} [
+ { { 10 100 } { 21 200 } { 30 301 } { 41 401 } }
+ [ nip even? ] collect-value-by
+ ] unit-test
+
+{
+ H{ { t V{ 100 301 } } { f V{ 200 401 } } }
+} [
+ { { 10 100 } { 21 200 } { 30 301 } { 41 401 } }
+ [ drop even? ] collect-value-by
+ ] unit-test
+