From cc0c12f498059a1cbf12e04382d6678281ace363 Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Mon, 12 Oct 2020 10:45:29 -0600 Subject: initial --- challenge-082/mark-anderson/raku/ch-2.p6 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/challenge-082/mark-anderson/raku/ch-2.p6 b/challenge-082/mark-anderson/raku/ch-2.p6 index 91a0e6a188..be03ab8fae 100644 --- a/challenge-082/mark-anderson/raku/ch-2.p6 +++ b/challenge-082/mark-anderson/raku/ch-2.p6 @@ -11,7 +11,7 @@ say interleaved($A, $B, $C); sub interleaved($A, $B, $C) { for @terms[$A.chars].Array X @terms[$B.chars].Array -> (@A, @B) { - for (($A, $B, @A, @B), ($B, $A, @B, @A)) -> ($S1, $S2, @A1, @A2) { + for ($A, $B, @A, @B), ($B, $A, @B, @A) -> ($S1, $S2, @A1, @A2) { return 1 if roundrobin($S1.comb.rotor(@A1), $S2.comb.rotor(@A2)) .flat.join eq $C; } -- cgit