Re^2: Diamonds for fun


Just another Perl shrine
	PerlMonks

Re^2: Diamonds for fun

by toolic (Bishop)

on Mar 07, 2011 at 14:45 UTC ( [id://891815]=note: print w/replies, xml )

Need Help??

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

You can shave 3 off your lowest score using perl 5.10:

# score = 53
#            1         2         3         4         5         
#   12345678901234567890123456789012345678901234567890123456789
perl -E'say" "x($t-$_),(1x$_)**2for(1x($t=pop))**2=~/./g'          9
[download]

update due to hbm's observation:

# score = 52
#            1         2         3         4         5         
#   12345678901234567890123456789012345678901234567890123456789
perl -E'say$"x($t-$_),(1x$_)**2for(1x($t=pop))**2=~/./g'          9
[download]

Comment on Re^2: Diamonds for fun Select or Download Code

In Section Cool Uses for Perl

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

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

Chatterbox^?

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

Other Users^?

Others browsing the Monastery: (5)

As of 2024-04-16 04:50 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found