diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-10-12 10:45:29 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-10-12 10:45:29 -0600 |
| commit | cc0c12f498059a1cbf12e04382d6678281ace363 (patch) | |
| tree | ead8288ffe1fd6be8baeab638b825d09db19e7ca | |
| parent | c78b0bc39325716be74af76ba1d6462f20ed63d5 (diff) | |
| download | perlweeklychallenge-club-cc0c12f498059a1cbf12e04382d6678281ace363.tar.gz perlweeklychallenge-club-cc0c12f498059a1cbf12e04382d6678281ace363.tar.bz2 perlweeklychallenge-club-cc0c12f498059a1cbf12e04382d6678281ace363.zip | |
initial
| -rw-r--r-- | challenge-082/mark-anderson/raku/ch-2.p6 | 2 |
1 files changed, 1 insertions, 1 deletions
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; } |