Unerwartete Ergenisse mit Promise.start - #182015 (Raku / Perl 6)

Kuerbis

2015-09-02 16:17

User since
2011-03-20
947 Artikel
BenutzerIn
[default_avatar]

Damit läuft es durch. Heißt das, dass das $i hier threadsicher ist?

Code (perl): (dl )

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

my $n = 20;

my $result;
for ^$n { $result += $_ ** $_ }

for ^10000 {
    my @p;
    my %hash;
    for ^$n -> $i {
        push @p, Promise.start( { %hash{$i} = $i ** $i } );
    }
    await @p;
    my $sum = [+] %hash.values;
    say $sum ~ " $_";
    die $_ if $sum != $result;
}