Raku-Plain-Hyper-Race-Benchmark-Test

#!/usr/bin/env raku
# Find out for what problems Hyper and Race performs fast compared to single thread execution

# Note: for real world benchmarking you might want to use some library from
# https://raku.land/?q=Benchmark

my @problems = 2**8, 2**16;
my @batch-sizes = 2**8, 2**16;
my @degrees = 2, 4;

#my @problems = 1, 2, 4 ... 2^15;
#my @batch-sizes = 64, 128, 256 ... 4096;
#my @degrees = 2, 4, 8 ... 32;

my $lazy-list-of-all-positive-integers = ^∞;
my $input = $lazy-list-of-all-positive-integers;

my @colnames = 'problem', 'batch', 'degree', 'single', 'hyper', 'race', 'speed-up hyper [%]', 'speed-up race [%]';
say join "\t", @colnames;

for @problems -> $problem {
    my $start = now;
    my $result-single = $input.grep(*.is-prime)[$problem];
    my $time-single = now - $start;

    for @batch-sizes X @degrees -> ($batch, $degree) {
      $start = now;
      my $result-hyper = $input.hyper(:$batch, :$degree).grep(*.is-prime)[$problem];
      # use the result - just to be sure it gets calculated (see lazyness)
      sink "wrong result in race" if $result-single != $result-hyper;
      my $time-hyper = now - $start;
      
      $start = now;
      my $result-race = $input.race(:$batch, :$degree).grep(*.is-prime)[$problem];
      # race works according to specification as order is not preserved
      # so we can not use it to get a specific prime by position
      sink "wrong result in race" if $result-single != $result-race;
      my $time-race = now - $start;

      #$start = now;
      # https://docs.raku.org/language/operators#methodop_%C2%BB._/_methodop_%3E%3E.
      #my $result-arrow = $input».grep(*.is-prime)[$problem];
      #sink "wrong result in »" if $result-single != $result-arrow;
      #my $time-arrow = now - $start;

      my @output = $problem, $batch, $degree, $time-single, $time-hyper, $time-race, speedup($time-single, $time-hyper), speedup($time-single, $time-race);
      say join "\t", @output
    }
}

sub speedup($t1, $t2) {
    round(($t1 - $t2 ) / $t1 * 100);
}