diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-05-12 23:56:52 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-05-12 23:56:52 +0200 |
| commit | 2b986cffac8bb3613808c159daf9a248c6adc362 (patch) | |
| tree | dfcefdd34f169f5bf75ba4a31d275cfed703acc1 | |
| parent | 9cdf0f456bf3f2013963e20fff016aab43e5c628 (diff) | |
| download | perlweeklychallenge-club-2b986cffac8bb3613808c159daf9a248c6adc362.tar.gz perlweeklychallenge-club-2b986cffac8bb3613808c159daf9a248c6adc362.tar.bz2 perlweeklychallenge-club-2b986cffac8bb3613808c159daf9a248c6adc362.zip | |
actually...
| -rw-r--r-- | challenge-060/markus-holzer/raku/ch-1.raku | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/challenge-060/markus-holzer/raku/ch-1.raku b/challenge-060/markus-holzer/raku/ch-1.raku index a870a6fb1e..8019730554 100644 --- a/challenge-060/markus-holzer/raku/ch-1.raku +++ b/challenge-060/markus-holzer/raku/ch-1.raku @@ -9,10 +9,8 @@ multi sub MAIN( Bool:D :$t ) { run-tests; } sub to-excel( PositiveInt $n ) { - state @digits = |( 'A'..'Z' ); - multi ec( Int $i where * < 26 ) { - @digits[ $i ] } + ( $i + 65 ).chr } multi ec( Int $i ) { ec( $i div 26 - 1 ) ~ ec( $i % 26 ) } |