Thanks a lot for this insightful and very interesting story. It's one of
those (sadly few) jewels that from time to time come across this mailing
list.
-- $l="\n";$p=q-sub r{rand}sub c{((shift)**2+(shift)**2)<1}while( $i++<=$s){$t++if c r,r}die("Gregor Best, 0xDB9F9A7C, ".($t/$s* 4).$l)-;$s+=ord$$|$_ for split //,$p;srand($s|$$);eval$p;die$@
This archive was generated by hypermail 2.2.0 : Sat Jun 25 2011 - 15:24:03 CEST