nqp / rakudo taylor approx

gistfile1.txt

# naive approximation: pi = 1 - /1/3 + 1/5 ...
# language: perl6 / nqp
my $limit := 20_000;

my $n := 1;
my $pi_over_4 := 0.0;

while $n < $limit {

##    my $m := 4.0*$n - 1.0; # this was making $m a Rat
    my $m := (4*$n - 1).Num;

    $pi_over_4 := $pi_over_4 + 1/($m - 2) - 1/$m;
    $n := $n + 1;

}

my $pi := $pi_over_4 * 4;
say($pi);