#!/usr/bin/env perl6
use v6;

use Benchmark;

my $n = 25_000;
my $runs = 1;
my $result;

my @stats = timethis( $runs, sub {
    for ^$n { $result += $_ ** $_ }                         # ein Kern
} );
say @stats; # 1441620270 1441620539 269 269



@stats = timethis( $runs, sub {
    my $sum = [+] await map { start { $_ ** $_ } }, ^$n;    # benutzt alle 4 Kerne
    die "Error" if $sum != $result;
} );
say @stats; # 1441620539 1441620618 79 79