Re: outputting fun

[Boogman]

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.