in reply to Re: Creating a circle in a data structure
in thread Creating a circle in a data structure

You can omit the square root if you compare to the square of the radius. I think one will get a big speed improvement from this.
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

In Section Seekers of Perl Wisdom