just the average code

it's actually a very simple code (as you can tell), but my first one here, so let's pretend it's a big deal, ok?! j/k hehe
=)

perl -e '$_=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/^..//;};'

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
grrr.... argh!

Comment on just the average code Download Code

Replies are listed 'Best First'.
Re: just the average code by jdalbec (Deacon) on Jan 20, 2006 at 02:41 UTC
<Reveal this spoiler or all in this thread>	[reply] [d/l] [select]
Re^2: just the average code by mk. (Friar) on Jan 22, 2006 at 17:40 UTC
thank you, hadn't thought of that! =) for the numbers, they were actually (kinda) randomly chosen: i needed 7, 4, 6, 5, 8 and 2, and somehow i realized sin of 307 would fit; then i just searched for any arctangents that would possibly have the sequence 17253098 - and found! `perl -e 'for ($x=0;$x<10000;$x++){for ($y=0;$y<10000;$y++){print "($x,$y) >>". atan2($x,$y)."\n" if atan2($x,$y)=~/17253098/}}'` that took me about two minutes while i was at work doing nothing, so i guess they were well spent. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ grrr.... argh!	[reply] [d/l]
Re: just the average code by Mago (Parson) on Jan 20, 2006 at 10:36 UTC
`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/ +^..//;};'` [download] *<;-)) Mago mago@rio.pm.org	[reply] [d/l]


Pathologically Eclectic Rubbish Lister
	PerlMonks