Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!env perl6
- use v6;
- $*ERR.print("Benchmark ", 'Miltiplier', ": ");
- my $stime = now;
- my $max_l = 20_000;
- say :$max_l.perl;
- my @l = 1..$max_l; # Hmmm. 2x here increases runtime by 4x
- my $n;
- for (^100) { # OK 10x here increases runtime by 10x
- $n = [*] @l;
- }
- say "Run time: ", now - $stime;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement