http://www.perlmonks.org?node_id=79868


in reply to Programming Contest (High School '87)

43 characters:
print$"x(4-$_/2),"*"x$_,$/for 1,3,5,7,5,3,1