From 6350fddd28bda40bcc9dfc73b8acb48e37279041 Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Tue, 13 Oct 2020 23:56:16 -0600 Subject: Challenge 82 Solutions (Raku) --- challenge-082/mark-anderson/raku/ch-2.p6 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)); -- cgit