[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[FWP] japh

My first shot... Pretty obvious, not nearly elegant or
obfuscated enough.. ah well, here it is.

$b = 1;
for (split(//,
"1111211111131223311361214223121412311341121111222123616111111122212332126151121142123212111211112221231"))
{
 $b ? ($b = 0) : ($b = 1);
 for($c = $_; $c > 0; $c--) {
   $d = $d . $b;
   if(length($d) == 8) { $d = pack "b*", $d; print $d;
$d = ''; }
 }
}
print "\n";

__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - Buy the things you want at great prices. 
http://auctions.yahoo.com/

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