Add a push-then-join test (with scaling); increase an old 1e3 limit t…

…o 1e4
raku-community-modules · Dec 7, 2012 · 2253bd1 · 2253bd1
1 parent 23baaf3
commit 2253bd1
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 8 deletions.
diff --git a/TODO b/TODO
@@ -34,7 +34,6 @@
     - dice.pl
     - mandelbrot-*.pl
   + diakopter++'s ideas:
-    - Push-then-join to contrast with the separate push and concat tests
     - String split using fixed string
     - String split using regex
     - Closure creation/invocation

diff --git a/microbenchmarks.pl b/microbenchmarks.pl
@@ -43,10 +43,22 @@
   nqp   => 'my $s := ""; my $i := 0; while ($i := $i + 1) <= 100000 { $s := $s ~ "x" }',
  },
  {
-  name  => 'while_push_1e3',
-  perl5 => 'my @a; my $i = 0; while (++$i <= 1000) { push @a, 1 }',
-  perl6 => 'my @a; my $i = 0; while (++$i <= 1000) { push @a, 1 }',
-  nqp   => 'my @a; my $i := 0; while ($i := $i + 1) <= 1000 { @a.push(1) }',
+  name  => 'while_push_join_1e4',
+  perl5 => 'my @a; my $i = 0; while (++$i <= 10000) { push @a, "x" }; my $s = join "" => @a;',
+  perl6 => 'my @a; my $i = 0; while (++$i <= 10000) { @a.push("x") }; my $s; $s = @a.join;',
+  nqp   => 'my @a; my $i := 0; while ($i := $i + 1) <= 10000 { @a.push("x"); }; my $s := nqp::join("",@a);',
+ },
+ {
+  name  => 'while_push_join_1e5',
+  perl5 => 'my @a; my $i = 0; while (++$i <= 100000) { push @a, "x" }; my $s = join "" => @a;',
+  perl6 => 'my @a; my $i = 0; while (++$i <= 100000) { @a.push("x") }; my $s; $s = @a.join;',
+  nqp   => 'my @a; my $i := 0; while ($i := $i + 1) <= 100000 { @a.push("x"); }; my $s := nqp::join("",@a);',
+ },
+ {
+  name  => 'while_push_1e4',
+  perl5 => 'my @a; my $i = 0; while (++$i <= 10000) { push @a, 1 }',
+  perl6 => 'my @a; my $i = 0; while (++$i <= 10000) { push @a, 1 }',
+  nqp   => 'my @a; my $i := 0; while ($i := $i + 1) <= 10000 { @a.push(1) }',
  },
  {
   name  => 'while_array_set_1e4',
@@ -109,9 +121,9 @@
   nqp   => undef,
  },
  {
-  name  => 'for_push_1e3',
-  perl5 => 'my @a; for (1 .. 1000) { push @a, 1 }',
-  perl6 => 'my @a; for (1 .. 1000) { push @a, 1 }',
+  name  => 'for_push_1e4',
+  perl5 => 'my @a; for (1 .. 10000) { push @a, 1 }',
+  perl6 => 'my @a; for (1 .. 10000) { push @a, 1 }',
   nqp   => undef,
  },
  {