Re^2: Diamonds for fun

[toolic]

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

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