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

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

In Section Cool Uses for Perl