hab auchma schnell eine sicherlich nicht ganz so elegante aber funktionierende loesung in perl geschrieben....
Code:
use strict;
my $c = getc(STDIN);
my $spn=ord(uc($c)) -65;
for (0..$spn){
my @a;
for (0 .. $_) {
push(@a, chr(65+$_));
$_++;
}
print " "x$spn--;
print @a;
pop @a;
print reverse @a;
print "\n";
}