Songmu [37B]
print"*"x($n-abs)."\n"for-($n=<>)..$n
hogee [37B]
print"*"x$_."\n"for('1'x<>)**2=~/\d/g
両方すごくいいのですが ゴルフ的には特に後者。