Add rc-man-or-boy-test

raku-community-modules · Dec 10, 2012 · ee77445 · ee77445
1 parent 7cf00e5
commit ee77445
Show file tree

Hide file tree

Showing 4 changed files with 27 additions and 0 deletions.
diff --git a/nqp/rc-man-or-boy-test b/nqp/rc-man-or-boy-test
@@ -0,0 +1,6 @@
+sub A ($k, $x1, $x2, $x3, $x4, $x5) {
+    my $B := sub () { A(--$k, $B, $x1, $x2, $x3, $x4) };
+    $k <= 0 ?? $x4() + $x5() !! $B();
+}
+
+say(A(+@ARGS[1], sub(){1}, sub(){-1}, sub(){-1}, sub(){1}, sub(){0}));
diff --git a/perl5/rc-man-or-boy-test b/perl5/rc-man-or-boy-test
@@ -0,0 +1,8 @@
+sub A {
+    my ($k, $x1, $x2, $x3, $x4, $x5) = @_;
+    my($B);
+    $B = sub { A(--$k, $B, $x1, $x2, $x3, $x4) };
+    $k <= 0 ? &$x4 + &$x5 : &$B;
+}
+
+say A($ARGV[0], sub{1}, sub{-1}, sub{-1}, sub{1}, sub{0});
diff --git a/perl6/rc-man-or-boy-test b/perl6/rc-man-or-boy-test
@@ -0,0 +1,6 @@
+sub A ($k is copy, $x1, $x2, $x3, $x4, $x5) {
+    my $B = sub () { A(--$k, $B, $x1, $x2, $x3, $x4) };
+    $k <= 0 ?? $x4() + $x5() !! $B();
+}
+
+say A(+@*ARGS[0], sub{1}, sub{-1}, sub{-1}, sub{1}, sub{0});
diff --git a/timeall b/timeall
@@ -171,6 +171,13 @@ my %TESTS = (
                     perl6 => [qw( BENCH/perl6/rc-forest-fire 30 20 10 )],
                     nqp   => [qw( BENCH/nqp/rc-forest-fire   30 20 10 )],
                    },
+                   {
+                    name  => 'rc-man-or-boy-test',
+                    skip  => [qw( )],
+                    perl5 => [qw( BENCH/perl5/rc-man-or-boy-test 10 )],
+                    perl6 => [qw( BENCH/perl6/rc-man-or-boy-test 10 )],
+                    nqp   => [qw( BENCH/nqp/rc-man-or-boy-test   10 )],
+                   },
                   ],
             );
 my %FORMATTER = (