aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarkus "Holli" Holzer <holli.holzer@gmail.com>2020-09-21 20:04:52 +0200
committerMarkus "Holli" Holzer <holli.holzer@gmail.com>2020-09-21 20:04:52 +0200
commit0eaf9a519d188731cefdb41e66be775ed2392633 (patch)
treec10fcb024a6825c81ba5c9d370fec82c503bde26
parent10f8946866d030906f6bea294e1bf90084360279 (diff)
downloadperlweeklychallenge-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.raku12
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