bench-loops.raku

sub prefix:<♥>(&c) {
    sub avg(@a) { @a.sum / +@a }
    state %run-times;
    LEAVE %run-times{&c.WHY}.push: (now - ENTER now);
    END { say .key, ‚: ‘, .value »~» ‚s‘, ‚ avg: ‘,.value.&avg ~ ‚s‘ for %run-times }
    c
}

for ^5 {
    #| grep
    ♥ { say sum (^100_000).grep: *.is-prime; }

    #| do for
    ♥ { say sum do for ^100_000 { .&next if .is-prime; } }

    #| eager for
    ♥ { say sum eager for ^100_000 { .&next if .is-prime; } }

    #| gather
    ♥ { say sum gather for ^100_000 { .take if .is-prime; } }

    my \a = lazy gather for ^100_000_000 { .take if .is-prime; }
    my \b = lazy for ^100_000_000 { .&next if .is-prime; }

    #| lazy gather
    ♥ { say sum a[^100_000]; }

    #| lazy for
    ♥ { say sum b[^100_000]; }
}

m1 output:

454396537
Cannot resolve caller next(Int:D); none of these signatures match:
    ( --> Nil)
    (Label:D \x --> Nil)
  in code  at m.raku line 14
  in block  at m.raku line 14
  in block <unit> at m.raku line 9

grep: [0.061793717s] avg: 0.061793717s
do for: [0.00066448s] avg: 0.00066448s

454396537
454396537
454396537
454396537
62260698721
62260698721
454396537
454396537
454396537
454396537
62260698721
62260698721
454396537
454396537
454396537
454396537
62260698721
62260698721
454396537
454396537
454396537
454396537
62260698721
62260698721
454396537
454396537
454396537
454396537
62260698721
62260698721
do for: [0.109006467s 0.107999665s 0.107718174s 0.105453619s 0.106429631s] avg: 0.1073215112s
gather: [0.089340866s 0.089803102s 0.089685898s 0.08841527s 0.095971453s] avg: 0.0906433178s
lazy for: [1.77557334s 1.793584325s 1.83347551s 1.794552087s 1.817099641s] avg: 1.8028569806s
lazy gather: [1.310523282s 1.295354835s 1.296478217s 1.328098282s 1.316869878s] avg: 1.3094648988s
eager for: [0.128505199s 0.118648003s 0.1181926s 0.116535277s 0.142791966s] avg: 0.124934609s
grep: [0.07783843s 0.079448088s 0.077027372s 0.075312549s 0.07303012s] avg: 0.0765313118s