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...
A bit shorter, but I must say I like Corion's solution better.print 'ABCDEFGFEDCBA', "\n"; my @letters = ( 'A' .. 'F' ); for ( 0 .. $#letters ) { print @letters[ 0 .. $#letters - $_ ], ' ' x ( 1 + 2 * $_ ), reverse( @letters[ 0 .. $#letters - $_ ] ), "\n"; }
In Section
Seekers of Perl Wisdom