Add output and expected subs for a few more microbenchmarks

Author: Geoffrey Broadwell

microbenchmarks.pl

@@ -313,22 +313,24 @@
   name  => 'reduce_range',
   tags  => [qw( reduce )],
   scale => 1 << 10,
-  perl5 => 'use List::Util "reduce"; reduce { $a + $b } 1 .. SCALE',
-  perl6 => '[+] 1 .. SCALE',
+  expected => sub { (($_[0] + 1) * $_[0] / 2) . "\n" },
+  perl5 => 'use List::Util "reduce"; say reduce { $a + $b } 1 .. SCALE;',
+  perl6 => 'say [+] 1 .. SCALE;',
   nqp   => undef,
  },
  {
   name  => 'reduce_int_comb_range',
   tags  => [qw( reduce )],
   scale => 1 << 7,
-  perl5 => 'use List::Util "reduce"; reduce { $a + $b } map { 0+$_ } map { split "" } 1 .. SCALE',
-  perl6 => '[+] (1 .. SCALE).comb>>.Int',
+  perl5 => 'use List::Util "reduce"; say reduce { $a + $b } map { 0+$_ } map { split "" } 1 .. SCALE; ',
+  perl6 => 'say [+] (1 .. SCALE).comb>>.Int;',
   nqp   => undef,
  },
  {
   name  => 'any_equals',
   tags  => [qw( junctions forest-fire )],
   scale => 1 << 7,
+  expected => sub { $_[0] ? "1 0\n" : "0 0\n" },
   perl5 => 'my $match = grep { 1 == $_ } 1 .. SCALE; my $fail = grep { 0 == $_ } 1 .. SCALE; say "$match $fail"',
   perl6 => 'my $match = 1 == any(1 .. SCALE); my $fail = 0 == any(1 .. SCALE); say "{+?$match} {+?$fail}"',
   nqp   => undef,
@@ -338,8 +340,9 @@
   tags  => [qw( for string )],
   scale => 1 << 7,
   work  => sub { $_[0] * $_[0] },
-  perl5 => 'my $s = " " x SCALE . "x" x SCALE . " " x SCALE; my ($result) = $s =~ /^\s*(.*?)\s*$/s for 1 .. SCALE',
-  perl6 => 'my $s = " " x SCALE ~ "x" x SCALE ~ " " x SCALE; $s.trim for 1 .. SCALE',
+  expected => sub { $_[0] . "\n" },
+  perl5 => 'my $s = " " x SCALE . "x" x SCALE . " " x SCALE; my $result = ""; ($result) = $s =~ /^\s*(.*?)\s*$/s for 1 .. SCALE; say length($result);',
+  perl6 => 'my $s = " " x SCALE ~ "x" x SCALE ~ " " x SCALE; my $result = ""; $result = $s.trim for 1 .. SCALE; say $result.chars;',
   nqp   => undef,
  },
  {