Re: Diamonds for fun

I'm quite sure this can be golfed further, but as it seems shorter than the above solutions I must post it.

perl -le 'printf"%*s\n",$t+$_,(1x$_)**2for(1x($t=pop))**2=~/./g' 9
[download]

Update: see also Christmas Tree.

Update: one character shorter:

perl -e 'printf"%*s\n",$t+$_,(1x$_)**2for(1x($t=pop))**2=~/./g' 9
[download]

Somewhat shorter:

perl -le 'print" "x($t-$_),(1x$_)**2for(1x($t=pop))**2=~/./g' 9
[download]

Update 2012-03-14: and see Spiraling integers for yet another arrangement of numbers.

Comment on Re: Diamonds for fun Select or Download Code

Replies are listed 'Best First'.
Re^2: Diamonds for fun by toolic (Bishop) on Mar 07, 2011 at 14:45 UTC
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]	[reply] [d/l] [select]
Re^2: Diamonds for fun by hbm (Hermit) on Mar 07, 2011 at 20:38 UTC
Squaring a string of ones (`(1x$_)2`) is very clever! This works for me up to 8, but 9 fails (because `1111111112 = 1.23456789876543e+16`). (Same for toolic's solution below...) You can save one more character with `$"` instead of `" "`.	[reply]
Re^3: Diamonds for fun by ambrus (Abbot) on Mar 07, 2011 at 21:14 UTC
It works for 9 on a 64 bit system, which is why I didn't notice it's broken, but it is indeed broken on 64 bit systems. You could try to fix it with something like this, but as is that's too long and I don't feel much like golfing it now. `perl -e 'printf"%.0f\n",$t+abs,(1x abs)*2for 1..($t=pop),1-$t..-1' 9` [download]	[reply] [d/l]


Your skill will accomplish what the force of many cannot
	PerlMonks