diff options
| author | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-21 20:04:52 +0200 |
|---|---|---|
| committer | Markus "Holli" Holzer <holli.holzer@gmail.com> | 2020-09-21 20:04:52 +0200 |
| commit | 0eaf9a519d188731cefdb41e66be775ed2392633 (patch) | |
| tree | c10fcb024a6825c81ba5c9d370fec82c503bde26 | |
| parent | 10f8946866d030906f6bea294e1bf90084360279 (diff) | |
| download | perlweeklychallenge-club-0eaf9a519d188731cefdb41e66be775ed2392633.tar.gz perlweeklychallenge-club-0eaf9a519d188731cefdb41e66be775ed2392633.tar.bz2 perlweeklychallenge-club-0eaf9a519d188731cefdb41e66be775ed2392633.zip | |
actually look at the argument
| -rw-r--r-- | challenge-079/markus-holzer/raku/bench.raku | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/challenge-079/markus-holzer/raku/bench.raku b/challenge-079/markus-holzer/raku/bench.raku index 77ad224a3b..f435d3a028 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; +my $N = @*ARGS[0] || 42; #say i($n); #say r($n); @@ -25,8 +25,8 @@ sub l { $^n == 0 ?? 0 !! @b[ $^n +& 0xf ] + l($^n +> 4) } Bench.new.timethese( 100000, { - base2-with-indices => { i(42) }, - base2-with-regex => { r(42) }, - div2-recursive => { f(42) }, - kernighan => { k(42) }, - lookup-recursive => { l(42) }})
\ No newline at end of file + base2-with-indices => { i($N) }, + base2-with-regex => { r($N) }, + div2-recursive => { f($N) }, + kernighan => { k($N) }, + lookup-recursive => { l($N) }})
\ No newline at end of file |
