Add the first Perl 6 stress test: divide-and-conquer

minibenchmarks.pl

@@ -106,4 +106,14 @@
   perl6 => [qw( BENCH/perl6/string-escape SCALE )],
   nqp   => undef,
  },
+ {
+  name  => 'divide-and-conquer',
+  skip  => [qw( )],
+  tags  => [qw( stress threads )],
+  scale => 0,
+  expected => "1\n",
+  perl5 => undef,
+  perl6 => [qw( BENCH/perl6/divide-and-conquer SCALE )],
+  nqp   => undef,
+ },
 ]

perl6/divide-and-conquer

@@ -0,0 +1,11 @@
+my \SCALE = @*ARGS[0];
+my \FANOUT = 2;
+
+sub divide-and-conquer($n, $depth) {
+    say "$depth: $n" if 0;
+    $depth <= 0 ?? $n !! [+] await do for ^FANOUT {
+        start { divide-and-conquer($n / FANOUT, $depth - 1) }
+    }
+}
+
+say divide-and-conquer(1.0, SCALE);