A method of finding pi without actually using it.

**Update:**Added derivation of e.#!/usr/bin/perl -w $x = 3; $y = 0; do { $y = $x; $x = $x - (sin($x)/cos($x)); } until ($x == $y); print "$x\n"; ######################## ######################## $x = 2; $y = 0; do { $y = $x; $x = $x - ((log($x) - 1) * $x); } until ($x == $y); print "$x\n";

Back to
Cool Uses for Perl