$/=$";($x,$y,$r)=<>; if($x||$y){ $a=1+$r/sqrt($x*$x+$y*$y); $x*=$a; $y*=$a; } $i++ while $i