Re: Diamonds for fun


Pathologically Eclectic Rubbish Lister
	PerlMonks

by BrowserUk (Patriarch)

on Mar 05, 2011 at 11:10 UTC ( [id://891562]=note: print w/replies, xml )

Need Help??

Golf:68. How to get rid of those reverses?

perl -E"$n=pop;say' 'x($n-$_),1..$_,reverse 1..$_-1for 1..$n,reverse 1
+..$n-1" 9
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re: Diamonds for fun Download Code

Replies are listed 'Best First'.
Re^2: Diamonds for fun by a (Friar) on Mar 06, 2011 at 00:15 UTC
Had to: `perl -e '$n=pop; print "\n", " "x($n-$_),1..$_,reverse 1..$_-1, for 1. +.$n,reverse 1..$n-1' 9` [download] for 5.8 ish ... seems like there's a marvelous recursive solution but my brain is too small to find it. a	[reply] [d/l]
Re^2: Diamonds for fun by LanX (Saint) on May 04, 2011 at 16:22 UTC
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	[reply] [d/l]
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]

Domain Nodelet^?

Node Status^?

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

Chatterbox^?

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

Other Users^?

Others rifling through the Monastery: (3)

As of 2024-04-24 02:09 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found