diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-02 16:30:20 -0700 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-02 16:30:20 -0700 |
| commit | 4cc208edb1a261e8e4d8f68bc182b249948a9699 (patch) | |
| tree | 9f4b82b80c2dfb853c86322f3a5836cfceb9d6f1 | |
| parent | aded74af837906d63e6a6b3560a227b7cd06d8c8 (diff) | |
| download | perlweeklychallenge-club-4cc208edb1a261e8e4d8f68bc182b249948a9699.tar.gz perlweeklychallenge-club-4cc208edb1a261e8e4d8f68bc182b249948a9699.tar.bz2 perlweeklychallenge-club-4cc208edb1a261e8e4d8f68bc182b249948a9699.zip | |
ch-2.raku
| -rw-r--r-- | challenge-102/mark-anderson/raku/ch-2.raku | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/challenge-102/mark-anderson/raku/ch-2.raku b/challenge-102/mark-anderson/raku/ch-2.raku index 01b42937a4..d178f1ed25 100644 --- a/challenge-102/mark-anderson/raku/ch-2.raku +++ b/challenge-102/mark-anderson/raku/ch-2.raku @@ -37,13 +37,9 @@ sub hash-string(UInt $n where $n > 0) is cached { given $n { - when 1 { "#" } - when 2 { "2#" } - when 3 { "#3#" } - default - { - my $next = $n - $n.chars - 1; - hash-string($next) ~ $n ~ "#"; - } + when 1 { "#" } + when 2 { "2#" } + when 3 { "#3#" } + default { hash-string($n - $n.chars - 1) ~ $n ~ "#" } } } |