Help for this page
#!/usr/bin/perl -w #Compute pi. Based on Leibniz's algorithm that ... }; return $sub; }
$p=4;$n=l();for(1..100000){($s,$a)=&$n;$p=$p-$s+$a}print$p; sub l{$i=1;sub{$i+=2;$f=4/$i;$i+=2;$q=4/$i;($f,$q)}}
www.com | www.net | www.org
No recent polls found