Re^3: e

[mtve]

in reply to Re^2: e
in thread e

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);

Update from tybalt89 - 80 chars:

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

[tachyon]

There was a bug in the code I posted. AFAIK it does not effect the result per se just the efficiency. By trying to scrape a char by using @e instead of $#e (as used in IOs code) within the inner loop we are accessing a non existent element one past the end of the array. As a result @e is growing by one with each inner loop.