Add rc-9-billion-names minibenchmark

Author: Geoffrey Broadwell

minibenchmarks.pl

@@ -47,4 +47,12 @@
   perl6 => [qw( BENCH/perl6/rc-dragon-curve SCALE )],
   nqp   => [qw( BENCH/nqp/rc-dragon-curve   SCALE )],
  },
+ {
+  name  => 'rc-9-billion-names',
+  skip  => [qw( )],
+  scale => 1 << 7,
+  perl5 => [qw( BENCH/perl5/rc-9-billion-names SCALE )],
+  perl6 => [qw( BENCH/perl6/rc-9-billion-names SCALE )],
+  nqp   => [qw( BENCH/nqp/rc-9-billion-names   SCALE )],
+ },
 ]

nqp/rc-9-billion-names

@@ -0,0 +1,34 @@
+my @todo;
+my @sums;
+@todo.push([1]);
+@sums.push(0);
+sub nextrow($n) {
+    my $l := +@todo;
+    while $l <= $n {
+        @sums[$l] := 0;
+        # print($l, "\r") if $l < $n;
+        my $r := [];
+        my $x := $l - 1;
+        while $x >= 0 {
+            my @x := @todo[$x];
+            if @x {
+                $r.push: @sums[$x] := @sums[$x] + @x.shift;
+            }
+            else {
+                $r.push: @sums[$x];
+            }
+            $x--;
+        }
+        @todo.push($r);
+        $l++;
+    }
+    @todo[$n];
+}
+
+sub MAIN(*@ARGS) {
+    my $n   := @ARGS[1];
+    my $row := nextrow($n);
+    my $sum := 0;
+       $sum := $sum + $_ for $row;
+    say($n, "\t", $sum);
+}

perl5/rc-9-billion-names

@@ -0,0 +1,31 @@
+use 5.010;
+
+# Where perl6 uses arbitrary precision integers everywhere
+# that you don't tell it not to do so, perl5 will only use
+# them where you *do* tell it do so.
+use Math::BigInt;
+use constant zero => Math::BigInt->bzero;
+use constant one  => Math::BigInt->bone;
+
+my @todo = [one];
+my @sums = (zero);
+sub nextrow {
+   my $n = shift;
+   for my $l (@todo .. $n) {
+      $sums[$l] = zero;
+      # print "$l\r" if $l < $n;
+      my @r;
+      for my $x (reverse 0 .. $l-1) {
+         my $todo = $todo[$x];
+         $sums[$x] += shift @$todo if @$todo;
+         push @r, $sums[$x];
+      }
+      push @todo, \@r;
+   }
+   @{ $todo[$n] };
+}
+
+my $n = $ARGV[0];
+my $i = 0;
+$i += $_ for nextrow($n);
+say $n, "\t", $i;

perl6/rc-9-billion-names

@@ -0,0 +1,23 @@
+my @todo = [1];
+my @sums = 0;
+sub nextrow($n) {
+    for +@todo .. $n -> $l {
+        @sums[$l] = 0;
+        # print $l,"\r" if $l < $n;
+        my $r = [];
+        for reverse ^$l -> $x {
+            my @x := @todo[$x];
+            if @x {
+                $r.push: @sums[$x] += @x.shift;
+            }
+            else {
+                $r.push: @sums[$x];
+            }
+        }
+        @todo.push($r);
+    }
+    @todo[$n];
+}
+
+my $n = @*ARGS[0];
+say $n, "\t", [+] nextrow($n)[];