in reply to Re: Golf the numbers!
in thread Golf the numbers!

That "real" solution can be compressed to 76 characters at the cost of readability:
sub t{@_||print"$, ";$,.=shift,$,%(9-@_)||&t,push@_,chop$,for 1..@_}t(1..9)
Update: I was blind. 72.
sub t{@_||print"$, ";$,.=shift,$,%(9-@_)||&t,push@_,chop$,for@_}t(1..9)

Replies are listed 'Best First'.
Re^3: Golf the numbers!
by Taulmarill (Deacon) on Oct 29, 2004 at 20:15 UTC
    you can save one char by removeing the brackets from the subroutine call
    sub t{@_||print"$, ";$,.=shift,$,%(9-@_)||&t,push@_,chop$,for@_}t 1..9