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


in reply to SHORTER Useless code
in thread Useless .... of course !

82 ! switching from while to for and saving 2 characters :
for($n=20,$i=1;$n;$i*=-1){map{print"\e[$a;${b}H@";${$n>$_?*b:*a}+=$i}1 +..2*($n-=2)}

__________________
Hope this helps