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

Kuerbis

2015-09-02 12:52

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

Hallo,

dieses Skript bricht früher oder später ab (it dies). Darf ich $sum so verwenden, wie ich es hier getan habe?

Code (perl): (dl )

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

my $n = 20;

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

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