Re^2: Diamonds for fun


Pathologically Eclectic Rubbish Lister
	PerlMonks

Re^2: Diamonds for fun

by LanX (Saint)

on May 04, 2011 at 16:22 UTC ( [id://902926]=note: print w/replies, xml )

Need Help??

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

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://902926]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others imbibing at the Monastery: (3)

As of 2024-04-24 04:26 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found