diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-21 23:08:34 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-21 23:08:34 +0200 |
| commit | 6a9cf80ad7714090fcdf2d389f2ba4c4046b46a7 (patch) | |
| tree | a0e0ccf6b1c72e3cb6331ed8be103bd0219524b2 | |
| parent | d6d15ced633043d544d0deed31eaba48fbc61a59 (diff) | |
| download | perlweeklychallenge-club-6a9cf80ad7714090fcdf2d389f2ba4c4046b46a7.tar.gz perlweeklychallenge-club-6a9cf80ad7714090fcdf2d389f2ba4c4046b46a7.tar.bz2 perlweeklychallenge-club-6a9cf80ad7714090fcdf2d389f2ba4c4046b46a7.zip | |
bug
| -rw-r--r-- | challenge-079/markus-holzer/raku/bench.raku | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-079/markus-holzer/raku/bench.raku b/challenge-079/markus-holzer/raku/bench.raku index 972836ee07..1ab34ceea2 100644 --- a/challenge-079/markus-holzer/raku/bench.raku +++ b/challenge-079/markus-holzer/raku/bench.raku @@ -1,6 +1,6 @@ use Bench; -my $N = @*ARGS[0] || 42; +unit sub MAIN(Int $N = 42); #say i($N); #say r($N); @@ -24,7 +24,7 @@ sub l { state @b = 0, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 4; $^n == 0 ?? 0 !! @b[ $^n +& 0xf ] + l($^n +> 4) } -Bench.new.timethese( 100000, { +Bench.new.timethese( 10000, { base2-with-indices => { i($N) }, base2-with-regex => { r($N) }, div2-recursive => { f($N) }, |