note arhuman It's been a game between [Gloom] and me, but may be you may like it too !<br> <br> So, If you're interested in [id://21442|Perl golf], come on and join the contest...<br> Let's turn this 'useless code' into '<b>shortest</b> useless code'<br> (RULE: Reproduce the spiral made by gloom with the fewest char.<br> the screen cleaning, shebang and the like aren't necessary...)<br> <br> Here is my contribution (84 char):<br> <code> $n=20;$i=1;while($n){map{print"\e[$a;${b}H@";${$n>$_?*b:*a}+=$i}1..2*($n-=2);$i*=-1} </code><br> <br> PS: For a really impressive PerlGolf example see [id://59718|this].<br> <br> <br>"Trying to be a SMART lamer" (thanx to <a href="/index.pl?node=Merlyn&lastnode_id=1072">Merlyn</a> ;-)<br> 63125 63125