use strict;
use warnings;
use Benchmark qw(cmpthese) ;
use Func;
use Quantum::Superpositions;
 
my @a = (1..50);
my @b = (35 .. 100);

cmpthese(-20, {
     'Func- Any > Any' => 
          sub {
              my $test = Func::any(@a) >  Func::any(@b);
          },
     'Q::S- Any > Any' => 
       sub {
           my $test = Quantum::Superpositions::any(@a) >  Quantum::Superpositions::any(@b); 
           },

});

__DATA__
       Rate Q::S Func
Q::S 10.7/s   -- -84%
Func 67.5/s 534%   --