diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-10-13 23:45:09 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-10-13 23:45:09 -0600 |
| commit | 6f694dbd39f4283ad1d7932f9e89674b1d870e78 (patch) | |
| tree | 84e2c34db518dd599b17f667de5e9bcf658a19c9 | |
| parent | f1a6b9080ef1db21d1d12493e4f30a0eb235c835 (diff) | |
| download | perlweeklychallenge-club-6f694dbd39f4283ad1d7932f9e89674b1d870e78.tar.gz perlweeklychallenge-club-6f694dbd39f4283ad1d7932f9e89674b1d870e78.tar.bz2 perlweeklychallenge-club-6f694dbd39f4283ad1d7932f9e89674b1d870e78.zip | |
Challenge 82 Solutions (Raku)
| -rw-r--r-- | challenge-082/mark-anderson/raku/ch-2.p6 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-082/mark-anderson/raku/ch-2.p6 b/challenge-082/mark-anderson/raku/ch-2.p6 index 096bf23b19..7199e7bba4 100644 --- a/challenge-082/mark-anderson/raku/ch-2.p6 +++ b/challenge-082/mark-anderson/raku/ch-2.p6 @@ -12,8 +12,8 @@ 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, $b, $c) = map { .substr: 0, 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)); |