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);
NB: Based on work by Xavier Gourdon e
cheers
tachyon
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: e
by Discipulus (Canon) on Jul 16, 2004 at 10:37 UTC | |
by Discipulus (Canon) on Jul 16, 2004 at 11:09 UTC | |
Re: e
by I0 (Priest) on Jul 17, 2004 at 06:04 UTC | |
Re: e
by Anonymous Monk on Jul 18, 2004 at 02:43 UTC | |
Back to
Obfuscated Code