EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE!!!

perl -e 'print exp 1'
[download]

• perldoc -f exp
• perldoc -f log

NOW I KNOW WHY I 'M GRADUATED IN MEDIAVAL HISTORY !!


cheers lorenzo*

which kind of number is ??

It's e

---

He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life.

Chady | http://chady.net/

sub e{
    use integer;
    my @e=(1) x shift;
    for(1..@e*log(@e)/3){
        for(reverse(1..$#e)){
            $e[$_-1]+=$e[$_]/$_; $e[$_]%=$_;
        }
        printf"%01d",$e[0]; $e[0]=0;
        $_*=10 for @e;
    }
}
[download]

Cool. Lovely piece of code.

Map gets it down to 105 chars - yes void maps are good for golf only!

sub e{
#234567890123456789012345678901234567890123456789012
@e=(1)x pop;map{map{$e[$_-1]+=$e[$_]/$_;$e[$_]=10*($
e[$_]%$_)}reverse 1..$#e;print int$e[0];$e[0]=0}1..@e
}

# or if you prefer whitespace and no void maps
sub e{
    @e=(1)x pop;
    for(1..@e){
        for(reverse(1..$#e)){
            $e[$_-1]+=$e[$_]/$_;
            $e[$_]=10*($e[$_]%$_)
        }
        print int $e[0];
        $e[0]=0
    }
}
[download]

cheers

tachyon

Simple optimizations down to 86:

sub e{
#234567890123456789012345678901234567890123456789012
map{$e[$q-1]+=$e[$q]/$q,($e[$q]%=$q--).=0for
1..($q=@e);$e[0]=!print"@e"|0}@e=(1)x pop
}
e(1000);
[download]

Update from tybalt89 - 80 chars:

$=[!print$=]=!map{$==$=[$#z]+=$=[@z]/@z,($=[@z]%=1+$#z--).=0}@z=@=for@
+==(1)x pop
[download]

sub e{    
    my @e=(1)x shift;
    my $f="%d.";
    local $|=1;
    for(1..@e*log(@e)/11){
        for(reverse(1..$#e)){
            $e[$_-1]+=$e[$_]/$_;
            $e[$_]=10000*($e[$_]%$_)
        }
        printf$f,$e[0];
        $e[0]=0;
        $f="%04d";
    }
}
[download]