Re: Golf challenge: Tangled Tale
Tobias Gödderz <[email protected]>
| Newsgroups | gmane.comp.lang.perl.fun |
|---|---|
| Message-ID | <1088175411.15464.11.camel@Zedd> |
On Fri, 2004-06-25 at 01:05, Brad Greenlee wrote:
> to write it up formally. I can try to write up a more formal
challenge=20
> if people want it (although it's bedtime for me now). But tersely:
[...]
> Down to 169 and going to bed...
Okay, with the 'new rules' ;) I'm now at 163 chars.
Tobias
--
j();sub j{$_=&p;sub p3{'81461380'}while(s/^(\d{3})(\d*)$/$2/){$s='0.'.$1;push@a,
atan2($s,sqrt(1-$s*$s))}sub p{&p1.&p2.&p3}sub p1{'30531437032492049655'}for(@a){
push@b,chr sprintf"%.0f",(100*$_);}$s=join'',@b;print$s^uc("u"x24);}sub p2{'%f';
hex'13012428';'65483245724613809200494613805399205724965145'}#by Tobias Goedderz
signature.asc
(application/pgp-signature, 189 B)
-----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.4 (GNU/Linux) iD8DBQBA3D0zm4q6IdXhjTARAiDmAJ93cp9B8vifem1Ffdi8yIwuiwnncQCgpp7w yPboMq73bZVnhxbCDLsMNVo= =6Tbd -----END PGP SIGNATURE-----