Re: Golf challenge: Tangled Tale
Tobias Gödderz <[email protected]>
| Newsgroups | gmane.comp.lang.perl.fun |
|---|---|
| Message-ID | <1088095094.6476.299.camel@Zedd> |
On Thu, 2004-06-24 at 16:58, Tony Bowden wrote:
> On Thu, Jun 24, 2004 at 04:40:29AM +0200, Tobias G?dderz wrote:
> > On Wed, 2004-06-23 at 20:15, Brad Greenlee wrote:
> > > First, my current code is down to 221.
> > I got mine down to 213 now.
>
> I got mine down to 16.
Really? I can't believe that. :-)
I made 152 and I'll stay with that.
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) iD8DBQBA2wN2m4q6IdXhjTARAmT9AJ9nR7P8KwfL4Z4wcP2dDMBZtNX9ygCfVipS z8EO/vOzAE1EHhcAiYa6wdc= =7z3v -----END PGP SIGNATURE-----