Re^2: Diamonds for fun

in reply to Re: Diamonds for fun
in thread Diamonds for fun

Golf:56 :)

perl -E'$_=pop;sub r{1..$_,reverse 1..$_-1}say" "x(9-$_),r for r' 9
        1
       121
      12321
     1234321
    123454321
   12345654321
  1234567654321
 123456787654321
12345678987654321
 123456787654321
  1234567654321
   12345654321
    123454321
     1234321
      12321
       121
        1
[download]

Cheers Rolf

Comment on Re^2: Diamonds for fun Download Code

Replies are listed 'Best First'.
Re^3: Diamonds for fun by Tux (Canon) on May 04, 2011 at 17:23 UTC
Combining with other posts here, golf:55 `perl -E'$_=pop;sub r{1..$_,reverse 1..$_-1}say$"x(9-$_),r for r' 9` Enjoy, Have FUN! H.Merijn	[reply] [d/l]

In Section Cool Uses for Perl