diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-10-12 10:41:11 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-10-12 10:41:11 -0600 |
| commit | c78b0bc39325716be74af76ba1d6462f20ed63d5 (patch) | |
| tree | 090aac0ded014445dcdebea2e350deeebf9bd4a0 /challenge-082 | |
| parent | 05bf450ccda1b6cfb0e796cd0c3ebef7cfc7349e (diff) | |
| download | perlweeklychallenge-club-c78b0bc39325716be74af76ba1d6462f20ed63d5.tar.gz perlweeklychallenge-club-c78b0bc39325716be74af76ba1d6462f20ed63d5.tar.bz2 perlweeklychallenge-club-c78b0bc39325716be74af76ba1d6462f20ed63d5.zip | |
initial
Diffstat (limited to 'challenge-082')
| -rw-r--r-- | challenge-082/mark-anderson/raku/ch-2.p6 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/challenge-082/mark-anderson/raku/ch-2.p6 b/challenge-082/mark-anderson/raku/ch-2.p6 index 1d67d02a79..91a0e6a188 100644 --- a/challenge-082/mark-anderson/raku/ch-2.p6 +++ b/challenge-082/mark-anderson/raku/ch-2.p6 @@ -9,11 +9,11 @@ my @terms := |from-json "terms.json".IO.slurp; say interleaved($A, $B, $C); -sub interleaved($S1, $S2, $C) { - for ($S1, $S2), ($S2, $S1) -> ($A, $B) { - for @terms[$A.chars].Array X @terms[$B.chars].Array -> (@A, @B) { - return 1 if roundrobin($A.comb.rotor(@A), $B.comb.rotor(@B)) - .flat.join eq $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) { + return 1 if roundrobin($S1.comb.rotor(@A1), $S2.comb.rotor(@A2)) + .flat.join eq $C; } } |