Re: Programming Contest (High School '87)

[no_slogan]

39 characters

map{print$"x abs,"*"x(7-2*abs),$/}-3..3

and 37

print$"x abs,"*"x(7-2*abs),$/for-3..3

[tilly]

That is the best organization of the problem. All that I can add is a slimy trick. The spec said output, but did not say where that data had to go:

warn$"x abs,"*"x(7-2*abs),$/for-3..3

I am not sure whether saving this character would be legal in a real golf competition...