diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-02 12:01:08 -0700 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-03-02 12:01:08 -0700 |
| commit | a373acc34670a46ac5b890ab0ba6cbc2928e306d (patch) | |
| tree | 13398832e30b25ade5072a3b6b0ea103706fbca9 | |
| parent | d8ece6f5076e1f5ecc712318472040fc37280c05 (diff) | |
| download | perlweeklychallenge-club-a373acc34670a46ac5b890ab0ba6cbc2928e306d.tar.gz perlweeklychallenge-club-a373acc34670a46ac5b890ab0ba6cbc2928e306d.tar.bz2 perlweeklychallenge-club-a373acc34670a46ac5b890ab0ba6cbc2928e306d.zip | |
ch-2.raku
| -rw-r--r-- | challenge-102/mark-anderson/raku/ch-2.raku | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/challenge-102/mark-anderson/raku/ch-2.raku b/challenge-102/mark-anderson/raku/ch-2.raku index 9e499c12bd..c7a74a2f9d 100644 --- a/challenge-102/mark-anderson/raku/ch-2.raku +++ b/challenge-102/mark-anderson/raku/ch-2.raku @@ -28,13 +28,15 @@ my @results = < #3#5#7#9#12#15#18#21# >; -for 1..21 { +for 1..21 +{ is hash-string($_), @results[$_-1]; } sub hash-string(UInt $n where $n > 0) is cached { - given $n { + given $n + { when 1 { "#"; |