Advertisement
Guest User

Untitled

a guest
Jun 22nd, 2017
48
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.28 KB | None | 0 0
  1. #!env perl6
  2. use v6;
  3.  
  4. $*ERR.print("Benchmark ", 'Miltiplier', ": ");
  5. my $stime = now;
  6. my $max_l = 20_000;
  7. say :$max_l.perl;
  8. my @l = 1..$max_l; # Hmmm. 2x here increases runtime by 4x
  9. my $n;
  10. for (^100) { # OK 10x here increases runtime by 10x
  11. $n = [*] @l;
  12. }
  13. say "Run time: ", now - $stime;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement