pi

# pi_sequential_iteration.rb port
use v6;
#my $n = 100000; 
my int $n = 100000;
my $delta = 1.0 / $n;
my $sum = 0.0;
#my $i = 1;
my int $i = 1;
while ( $i <= $n) {
  my $x = ( $i - 0.5 ) * $delta;
  $sum += 1.0 / ( 1.0 + $x * $x );
  $i += 1;
}
my $pi = 4.0 * $delta * $sum;
say $pi;

# vim: set ft=perl6