aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMark <53903062+andemark@users.noreply.github.com>2023-12-18 10:22:41 +0000
committerMark <53903062+andemark@users.noreply.github.com>2023-12-18 10:22:41 +0000
commite3ad4ebb7065b755ab3e424cd207a58dc7cb23a7 (patch)
treecd8af969863feb86ac954a86413065edc07ae09f
parent5f62b3ed1b23c5455f09ad1a09f087daa3e55f3e (diff)
downloadperlweeklychallenge-club-e3ad4ebb7065b755ab3e424cd207a58dc7cb23a7.tar.gz
perlweeklychallenge-club-e3ad4ebb7065b755ab3e424cd207a58dc7cb23a7.tar.bz2
perlweeklychallenge-club-e3ad4ebb7065b755ab3e424cd207a58dc7cb23a7.zip
Challenge 248 Solutions (Raku)
-rw-r--r--challenge-248/mark-anderson/raku/ch-1.raku4
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;