diff options
| -rw-r--r-- | challenge-248/mark-anderson/raku/ch-1.raku | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-248/mark-anderson/raku/ch-1.raku b/challenge-248/mark-anderson/raku/ch-1.raku index 9f9cfc21e3..9d664435ed 100644 --- a/challenge-248/mark-anderson/raku/ch-1.raku +++ b/challenge-248/mark-anderson/raku/ch-1.raku @@ -24,13 +24,13 @@ sub shortest-distance($str, $char) my $middle = gather for @a -> $a, $b { take 0 xx $a.chars; - take distance($b) + take distances($b) } flat ($head, $middle, $tail)>>.List } -sub distance($s) +sub distances($s) { return Empty unless $s; my $mid = ($s.chars / 2).ceiling; |