Merge pull request #26 from stmuk/master

lizmat · web-flow · commit fbee8cb75a66 · 2016-08-09T23:46:47.000+02:00
post Sep 30 2015 append replaces shift
diff --git a/microbenchmarks.pl b/microbenchmarks.pl
@@ -131,7 +131,7 @@
   work  => sub { 1 << $_[0] },
   expected => sub { (1 << $_[0]) . "\n" },
   perl5 => 'my @a; push @a, 42; my $i = 0; while (++$i <= SCALE) { push @a, @a }; say scalar @a;',
-  perl6 => 'my @a; @a.push(42); my $i = 0; while (++$i <= SCALE) { @a.push(@a) }; say +@a;',
+  perl6 => 'my @a; @a.push(42); my $i = 0; while (++$i <= SCALE) { @a.append(@a) }; say +@a;',
   nqp   => 'my @a; nqp::push(@a, 42); my $i := 0; while ($i := $i + 1) <= SCALE { my $elems := nqp::elems(@a); my $j := 0; while $j < $elems { nqp::push(@a, @a[$j]); $j++; } }; say(+@a);',
  },
  {

Original file line number	Diff line number	Diff line change
`@@ -131,7 +131,7 @@`
`131`	`131`	`work => sub { 1 << $_[0] },`
`132`	`132`	`expected => sub { (1 << $_[0]) . "\n" },`
`133`	`133`	`perl5 => 'my @a; push @a, 42; my $i = 0; while (++$i <= SCALE) { push @a, @a }; say scalar @a;',`
`134`		`- perl6 => 'my @a; @a.push(42); my $i = 0; while (++$i <= SCALE) { @a.push(@a) }; say +@a;',`
	`134`	`+ perl6 => 'my @a; @a.push(42); my $i = 0; while (++$i <= SCALE) { @a.append(@a) }; say +@a;',`
`135`	`135`	`nqp => 'my @a; nqp::push(@a, 42); my $i := 0; while ($i := $i + 1) <= SCALE { my $elems := nqp::elems(@a); my $j := 0; while $j < $elems { nqp::push(@a, @a[$j]); $j++; } }; say(+@a);',`
`136`	`136`	`},`
`137`	`137`	`{`