diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-10-13 23:54:11 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-10-13 23:54:11 -0600 |
| commit | bd894a13869f52d96295effccc6ba1219fb81475 (patch) | |
| tree | d2ff38e6b78cd1a2a70f5ef9a033a19a52a30c07 | |
| parent | 6f694dbd39f4283ad1d7932f9e89674b1d870e78 (diff) | |
| download | perlweeklychallenge-club-bd894a13869f52d96295effccc6ba1219fb81475.tar.gz perlweeklychallenge-club-bd894a13869f52d96295effccc6ba1219fb81475.tar.bz2 perlweeklychallenge-club-bd894a13869f52d96295effccc6ba1219fb81475.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 7199e7bba4..71b213811a 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)); |