Beef up any_equals and add a perl5 emulation using grep

raku-community-modules · Jul 6, 2014 · a5d9765 · a5d9765
1 parent 445d939
commit a5d9765
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/microbenchmarks.pl b/microbenchmarks.pl
@@ -246,8 +246,8 @@
   name  => 'any_equals',
   tags  => [qw( junctions )],
   scale => 1 << 7,
-  perl5 => undef,
-  perl6 => '1 == any(1 .. SCALE)',
+  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,
  },
  {