diff options
| author | Mark Anderson <mark@frontrangerunner.com> | 2020-05-17 09:21:24 -0600 |
|---|---|---|
| committer | Mark Anderson <mark@frontrangerunner.com> | 2020-05-17 09:21:24 -0600 |
| commit | 63d05e2e031ba8e3e7ea1632553e5c8f8d5214fb (patch) | |
| tree | cb11ddf68f3dd785e5c2b4f77bccbe7bdd5627d4 | |
| parent | 072d52105e296d33189d80872af5656ba06edecf (diff) | |
| download | perlweeklychallenge-club-63d05e2e031ba8e3e7ea1632553e5c8f8d5214fb.tar.gz perlweeklychallenge-club-63d05e2e031ba8e3e7ea1632553e5c8f8d5214fb.tar.bz2 perlweeklychallenge-club-63d05e2e031ba8e3e7ea1632553e5c8f8d5214fb.zip | |
final
| -rw-r--r-- | challenge-060/mark-anderson/raku/ch-1.raku | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-060/mark-anderson/raku/ch-1.raku b/challenge-060/mark-anderson/raku/ch-1.raku index 0bc777c96d..0e2be680c1 100644 --- a/challenge-060/mark-anderson/raku/ch-1.raku +++ b/challenge-060/mark-anderson/raku/ch-1.raku @@ -24,8 +24,8 @@ sub to-excel(UInt $num is copy) { $num div= 26; if $remainder == 0 { - $num--; $remainder = 26; + $num--; } $string ~= @letters[$remainder - 1]; |