reductions are now under one-arg rule

Raku · Sep 19, 2015 · 8cd1edb · 8cd1edb
1 parent c48ef39
commit 8cd1edb
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/S12-methods/chaining.t b/S12-methods/chaining.t
@@ -66,7 +66,7 @@ eval-dies-ok('$foo->num', 'Perl 5 -> is dead (method call)');
     # (A => (B => Mu)) => (C => Mu))
     # ((A B) C)
 
-    my $cons = [=>] ( [=>] <A B>, Mu ), <C>, Mu;
+    my $cons = [=>] ( [=>] |<A B>, Mu ), <C>, Mu;
 
     my $p = $cons.key;
     ok( $cons.key.key =:= $p.key, 'chaining through temp variable' );

diff --git a/integration/advent2009-day05.t b/integration/advent2009-day05.t
@@ -19,7 +19,7 @@ is ([+] @a), 20, 'Sum all elements in a list';
 is ([*] @a), 384, 'Multiply all elements in a list';
 ok ([<=] @a), 'All elements of list are numerically sorted';
 nok ([<=] @b), 'Not all elements of list are numerically sorted';
-is ([min] @a, @b), 2, 'Find the smallest element of two lists';
+is ([min] flat @a, @b), 2, 'Find the smallest element of two lists';
 is (@a »+« @b), [18, 18, 18, 18], 'Hyper operator - pairwise addition';
 is $(@a_copy = @a; @a_copy»++; @a_copy), [3, 5, 7, 9], 'Hyper operator - increment all elements in a list';
 is (@a »min« @b), [2, 4, 6, 8], 'Hyper operator - finding minimum elements';