diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2023-12-18 10:22:41 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2023-12-18 10:22:41 +0000 |
| commit | e3ad4ebb7065b755ab3e424cd207a58dc7cb23a7 (patch) | |
| tree | cd8af969863feb86ac954a86413065edc07ae09f | |
| parent | 5f62b3ed1b23c5455f09ad1a09f087daa3e55f3e (diff) | |
| download | perlweeklychallenge-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.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; |
