Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Enough parens?

by kelan (Deacon)
on Apr 04, 2003 at 19:59 UTC ( #248176=obfuscated: print w/replies, xml ) Need Help??

Not particularly obfu, but it helped me learn a bit more about un/pack. (strict and warnings compliant!)

@)=(0,-7936,(0)x5,-0,0,-16252928,0,8118528,3949056,3146752,530432,5160 +96,0, -245760,-798720,-3148800,-12337920,270336,(-0)x1,-0,-516096,0,516096,( +0)x4, 16260864,0,-16760832,-15360,515584,5888,0,-5888,-515584,15360,507904,( +0)x4, -0,16252928,-0,-16260864,-0,0,(-0)x2,0,-516096,0,516096,(-0)x4,0,16260 +864); if ($==unpack(v78,(pack(v66.(unpack(v67,(v32))),(1x unpack(v67,(v32))) +)))){ print(0.1_0.0,unpack(v66.(unpack(v67,(v32))),(pack(v78,($=+=$_)))))for +(@))}

kelan


Perl6 Grammar Student

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: obfuscated [id://248176]
Approved by Mr. Muskrat
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (1)
As of 2022-11-26 13:41 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?