Re: Golf challenge: Tangled Tale
Tobias Gödderz <[email protected]>
| Newsgroups | gmane.comp.lang.perl.fun |
|---|---|
| Message-ID | <1088010877.6492.8.camel@Zedd> |
On Mon, 2004-06-21 at 00:34, Brad Greenlee wrote:
> it unreadable to all but the people on this list. Golf anyone? My
> opening shot is 288.
Okay, this is my first participation in this list, I hope I'm not
breaking any unwritten or unread ;) rules. We (a friend of mine and me)
made it with 246 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) iD8DBQBA2bp8m4q6IdXhjTARArOVAJ0XUIHRLGXZr1q4xlWFYPE7y4SmmgCgv7Y4 UUeF+M9W/MEWVGSi6Gll7oA= =fRC0 -----END PGP SIGNATURE-----