Add a bunch of Perl 6 sample files

samples/Perl6/man-or-boy.t

@@ -0,0 +1,32 @@
+use Test;
+
+# stress test for lexicals and lexical subs
+# See 
+# http://en.wikipedia.org/w/index.php?title=Man_or_boy_test&oldid=249795453#Perl
+
+my @results = 1, 0, -2, 0, 1, 0, 1, -1, -10, -30;
+
+# if we want to *really* stress-test, we can use a few more tests:
+# my @results = 1, 0, -2, 0, 1, 0, 1, -1, -10, -30, -67, -138
+# -291, -642, -1446, -3250, -7244, -16065, -35601, -78985;
+
+plan +@results;
+
+sub A($k is copy, &x1, &x2, &x3, &x4, &x5) {
+    my $B;
+    $B = sub (*@) { A(--$k, $B, &x1, &x2, &x3, &x4) };
+    if ($k <= 0) {
+        return    x4($k, &x1, &x2, &x3, &x4, &x5)
+                + x5($k, &x1, &x2, &x3, &x4, &x5);
+    }
+    return $B();
+};
+
+for 0 .. (@results-1) -> $i {
+    is A($i, sub (*@) {1}, sub (*@) {-1}, sub (*@) {-1}, sub (*@) {1}, sub (*@) {0}),
+       @results[$i],
+       "man-or-boy test for start value $i";
+}
+
+
+# vim: ft=perl6