in reply to Programming Contest (High School '87)

I can get it down to 41 by juggling your code around and making use of the -l switch ... or 43 if you count the -l. :)

print$"x(3-$_),"*"x($_*2+1)for 0..3,2,1,0

    --k.