Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

The key to paradise

by gmax (Abbot)
on Dec 20, 2001 at 22:47 UTC ( [id://133561]=obfuscated: print w/replies, xml ) Need Help?? 

#/usr/bin/perl
    %p=("\040"=>"\137\057");
    $p{$p{"\040"}} = "\040";
    print@{[map{$o=$p{"\040"
    };@{[              map{(
    ($o=$              p{$o}
    )x$_)              }map{
    ord($_)-(ord("\40")*3)-1
    }split//]},"\n"}split/n/
    ,"uaqbnfdgcebcccbnebebc"
    ."ecc"
    ."gbn"
    ."dbe"
    ."bcb"
    ."ibibncdgdcbib"
    ."nbbnabnaauaub"
    ."ndd"
    ."ccg"
    ."cedebcbncbebe"
    ."bcbebcbebccnb"
    ."beb"
    ."ebc"
    ."bebcbebcbcbna"
    ."bebebecebebcb"
    ."ebna"]};# amen

[download]
 _  _ _  _  
(_|| | |(_|><
 _|

Replies are listed 'Best First'.
Re: The key to paradise
by gmax (Abbot) on Dec 21, 2001 at 13:50 UTC
    Come to think of it, the key to paradise should use strict and -w ;-) 
    #/usr/bin/perl -w
   use strict;my%p=
 ("\40"=>chr(ord("\40"
)*3-1).chr(ord("\40")+ord("\40")/4+7));$p{$p{"\40"}}="\40";print
@{[map{my$o= $p{"\40"};@{[map{(($o=$p{$o})x$_)}map{ord($_)-(ord(
"\40")*3       )-1}split//]},"\n"}split/n/,"uaqbnfdgcebcccbnebe"
."bcecc"       ."gbndbeb"          ."cbibi"   ."bncdg"  ."dcbib"
."nbbna"       ."bnaaua"           ."ubndd"   ."ccgce"  ."debcb"
."ncbeb"       ."ebcbeb"
 ."cbebc"     ."cnbbeb"
  ."ebcbebcbebcbcbnab"
   ."ebebecebebcbeb"
    ."na"]};# amen

    [download]
     _  _ _  _  
(_|| | |(_|><
 _|
[reply]
[d/l]
Re: The key to paradise
by ellem (Hermit) on Dec 21, 2001 at 02:49 UTC
    You can't hear it, but I am clapping very loud right now.
    --
    lmoran@wtsg.com
    There's more than one way to do it, just don't use my way.
[reply]

Back to Obfuscated Code

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: obfuscated [id://133561]
Approved by root
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others learning in the Monastery: (4)
As of 2024-04-26 04:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found