http://qs321.pair.com?node_id=30156


in reply to outputting fun

Here's another way. I just printed the first line cause it didn't really fit the pattern used for the rest of the lines...
print 'ABCDEFGFEDCBA', "\n"; my @letters = ( 'A' .. 'F' ); for ( 0 .. $#letters ) { print @letters[ 0 .. $#letters - $_ ], ' ' x ( 1 + 2 * $_ ), reverse( @letters[ 0 .. $#letters - $_ ] ), "\n"; }
A bit shorter, but I must say I like Corion's solution better.