in reply to Golf the numbers!

Given the output the shortest solution is probably the following 17 char one: 
print"381654729
"

[download]
Unless you want to cheat with: 
die"381654729
"

[download]
But for "real" solutions, try this 78 character one: 
sub t{@_||print"$n
";for(1..@_){$n.=shift;$n%(9-@_)||&t;push@_,chop$n}}t(1..9)

[download]

Replies are listed 'Best First'.
Re^2: Golf the numbers!
by tilly (Archbishop) on Oct 29, 2004 at 18:11 UTC
    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)

    [download]
    Update: I was blind. 72. 
    sub t{@_||print"$,
";$,.=shift,$,%(9-@_)||&t,push@_,chop$,for@_}t(1..9)

    [download]
[reply]
[d/l]
[select]
      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

      [download]
[reply]
[d/l]
Re^2: Golf the numbers!
by dragonchild (Archbishop) on Oct 29, 2004 at 23:19 UTC
    <impressed>

    I'll be really impressed at the golfed version of Algorithm::Loops.

    </impressed>

    Being right, does not endow the right to be rude; politeness costs nothing.
    Being unknowing, is not the same as being stupid.
    Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
    Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

[reply]

In Section Meditations