#!/usr/bin/perl
use warnings;
my $s=0;
my $i=0;
while()
{
print 4*$s, "\n" unless $i % 1E5;
$s+=((-1)**$i)/(2*$i+1);
$i++;
}
#!/usr/bin/perl
use warnings;
my $s=0;
my $i=1;
while()
{
print sqrt(6*$s), "\n" unless $i % 1E5;
$s+=1/$i**2;
$i++;
}
#!/usr/bin/perl
use warnings;
my $pi=2;
my $i=2;
while()
{
print "$pi\n" unless $i % 1E5;
$pi*=$i**2/($i-1)/($i+1);
$i+=2;
}
#!/usr/bin/perl
use warnings;
my ($pi, $d)=(2, 0);
while()
{
print "$pi\n";
$d=sqrt(2+$d);
$pi*=2/$d;
}
#!/usr/bin/perl
use warnings;
my $i=my $j=0;
while()
{
$i++;
$j++ if rand()**2+rand()**2<1;
print 4*$j/$i, "\n" unless $i % 1E5;
}