Re: [FWP] Shortening

["Keith Calvert Ivey" <kcivey@cpcug.org>]

I sent my shortened version to the creators of the code and got 
this response.

------- Forwarded Message Follows -------
To:            "Keith Calvert Ivey" <kcivey@cpcug.org>
Cc:            keithw@MIT.EDU
Subject:       Re: Shortened qrpff.pl (503 bytes)
Date:          Thu, 08 Mar 2001 05:24:17 -0500
From:          Keith Winstein <keithw@MIT.EDU>

> We've had a little discussion on the Fun With Perl list, and 
> this is my contribution.

Hey, nice going. You had a few bugs in your code causing it to not quite
run without bombing out, but nothing too major. Thanks mostly to your
suggestions, here's where we are now (at 499 bytes):

$_='$/=\2048;while(<STDIN>){k=29;c=142;if((@a=unx"C*",_)[20]&48){h=5;_=
unxb24,join"",@b=map{xB8,unxb8,chr(_^$a[--h+84])}@ARGV;s/...$/1$&/;d=unx
V,xb25,_;l=73;e=256|(ord$b[4])<<9|ord$b[3];d=d>>8^(f=(r=255)&(d>>12^d>>4
^d^d/8))<<17,e=e>>8^(r&(g=(q=e>>14&7^e)^q*8^q<<6))<<9,_=(map{_%16or+r^=
c^=(m=(11,10,116,100,11,122,20,100)[_/16%8])&110;r^=(72,@z=(64,72,k^=12
*(_%16-2?0:m&17)),l^=_%64?12:0,@z)[_%8]}(16..271))[_]^((h>>=8)+=f+(~g&r
))for@a[128..$#a]}print+x"C*",@a}';s/x/pack+/g;s/\b[c-r_]\b/\$$&/g;eval

I couldn't seem to get current "Fun With Perl" archives, so hopefully
you can pass this on to the list. More suggestions are very
welcome. It would be great to get below 6 * 79 or 6 * 80 before it
goes on a T-shirt (although if we get within 5 and get stumped I'm
going to vote for killing the "STDIN" at the expense of some warnings
after it's reached the end of its input).

Best regards,
Keith


-- 
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe