You can see the original on Googleblog.

You can also read a clever solution on davorg's journal on use.perl (just the first stage).

(Of course you need to leave your email address, and check a box requesting notification, haha :-) )

Well here is a little Perl program to calculate e to N decimal places to get you started.

sub e {
$N=pop;$a[$_]=int(1+1/$_)for 1..$N;for(;$N>9;print int$x)
{for($n=$N--;--$n;$a[$n]=$x%$n,$x=10*$a[$n-1]+$x/$n){}}
}
e(1000);
[download]