Select Code to Download

$ time ./perl6 -e 'my $s; for 1..10000 {$s+=1/$_**2};say $s'
1.64483407184806
...
real 0m0.009s
user 0m0.008s
sys 0m0.004s

time ./perl6 -e 'my $s; for 1..10000 {$s+=1/$_**2};say $s'
1.64483407184806
...
real    0m9.588s
user    0m9.513s
sys    0m0.068s

time ./perl6 -e 'my $s; for 1..1000 {$s+=1/$_**2};say $s'
NaN
...
real    0m2.164s
user    0m2.080s
sys    0m0.080s

./perl6 -e 'my $s; for 1..358 {$s+=1/$_**2};say $s'
1.64214466837792

./perl6 -e 'my $s; for 1..359 {$s+=1/$_**2};say $s'
NaN