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


in reply to just the average code

perl -le '$_=abs(sin(307));s/3|\.//g;$b=$_;$_=substr(atan2(1189,6823), +2,8);eval"y/0-9/$b/";for($c=0;$c<5;$c++){print chr(substr($_,0,2));s/ +^..//;};'

*<;-))


Mago
mago@rio.pm.org