gistfile1.txt

my \size = 500;
my \reps = 100;
 
my $a = [];
for 1..size { $a[$_ - 1] = $_ }
 
my $s = now;
 
for 1..reps {
  my @b = $a[1..($a - 1)];
}
say now - $s;
my $zz;

role items_getter { method foo { sub { return nqp::getattr(self, List, '$!items') } } }

my $aa := $a does items_getter;

$s = now;
 
for 1..reps {
  my $t := nqp::shift($aa.foo.());
  my @b = nqp::clone($aa.foo.());
  nqp::unshift($aa.foo.(), $t);
}
say now - $s;