Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

ASCII arithmetic

by martin (Friar)
on Sep 29, 2010 at 10:16 UTC ( #862574=obfuscated: print w/ replies, xml ) Need Help??

$%=2,$"=6;$;=ord"\c?";print+map{$%*="@_[4,4, ]";$=-=$=;$=*=$%%=$;,$=+=ord,$=%=$;for@_;chr $=}@_=split?,*?,q=|f475!%L(wz)Hmqkcz?ar~x<m=

This one won't work correctly on an EBCDIC machine, I am afraid. But you can turn on strictures and warnings if you like.

Comment on ASCII arithmetic
Download Code
Re: ASCII arithmetic
by ambrus (Abbot) on Sep 29, 2010 at 15:19 UTC
Re: ASCII arithmetic
by hbm (Hermit) on Sep 29, 2010 at 18:41 UTC

    I understand what you are doing:

    $% = 2; $" = 6; $; = 127; @_ = qw(124 102 52 55 53 33 37 76 40 119 122 41 72 109 113 107 99 122 63 97 114 126 120 60 109); for (@_) { $= = 0; $% *= 565; for (@_) { $% %= 127; $= *= $%; $= += $_; $= %= 127; } print chr $= }

    But the beauty, I'm sure, is how you arrived at those numbers - and I'm left wondering.

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (4)
As of 2015-07-04 05:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (57 votes), past polls