examples/perl/pi-leibnitz.plPerl
#!/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++;
}

examples/perl/pi-euler.plPerl
#!/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++;
}

examples/perl/pi-wallis.plPerl
#!/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;
}

examples/perl/pi-viete.plPerl
#!/usr/bin/perl

use warnings;

my ($pi, $d)=(2, 0);

#my $i=1;
while()
{
	print "$pi\n";# unless $i++ % 1E5;
	$d=sqrt(2+$d);
	$pi*=2/$d;
}

examples/perl/pi-monte-carlo.plPerl
#!/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;
}