Add reduce_int_comb_range_1e4 test, inspired by bench-scripts++

raku-community-modules · Feb 2, 2013 · 55f801c · kboga · Feb 2, 2013 · japhb
1 parent 575c02c
commit 55f801c
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/microbenchmarks.pl b/microbenchmarks.pl
@@ -151,6 +151,12 @@
   perl6 => '[+] 1 .. 100000',
   nqp   => undef,
  },
+ {
+  name  => 'reduce_int_comb_range_1e4',
+  perl5 => 'use List::Util "reduce"; reduce { $a + $b } map { 0+$_ } map { split "" } 1 .. 1000',
+  perl6 => '[+] (1 .. 10000).comb>>.Int',
+  nqp   => undef,
+ },
  {
   name  => 'any_equals_1e3',
   perl5 => undef,