in reply to Re: Ponder This: the worm-eaten page
in thread Ponder This: the worm-eaten page

bit shorter
perl -le 'print eval join'+',map{split/0+/}1..9999'

Replies are listed 'Best First'.
Re^3: Ponder This: the worm-eaten page
by Jasper (Chaplain) on Dec 20, 2004 at 11:23 UTC
    But I suppose this is cheating:
    perl -le 'map$\+=$_,map/[^0]+/g,1..9999;print'