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