diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-10-13 23:56:16 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-10-13 23:56:16 -0600 |
| commit | 6350fddd28bda40bcc9dfc73b8acb48e37279041 (patch) | |
| tree | 140a9dc1090698642076492416835a2dfb820e69 | |
| parent | bd894a13869f52d96295effccc6ba1219fb81475 (diff) | |
| download | perlweeklychallenge-club-6350fddd28bda40bcc9dfc73b8acb48e37279041.tar.gz perlweeklychallenge-club-6350fddd28bda40bcc9dfc73b8acb48e37279041.tar.bz2 perlweeklychallenge-club-6350fddd28bda40bcc9dfc73b8acb48e37279041.zip | |
Challenge 82 Solutions (Raku)
| -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 71b213811a..027ec71106 100644 --- a/challenge-082/mark-anderson/raku/ch-2.p6 +++ b/challenge-082/mark-anderson/raku/ch-2.p6 @@ -13,7 +13,7 @@ sub is-interleaved($A, $B, $C) { return 0 unless $C.chars; my ($a, $b, $c) = map { .substr: 0, 1 }, ($A, $B, $C); - my ($a-rest, $b-rest, $c-rest) = map { .substr: 1 }, ($A, $B, $C); + my ($a-rest, $b-rest, $c-rest) = map { .substr: 1 }, ($A, $B, $C); return +($a eq $c and is-interleaved($a-rest, $B, $c-rest)) || +($b eq $c and is-interleaved($A, $b-rest, $c-rest)); |