Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Re: The key to paradise

by gmax (Abbot)
on Dec 21, 2001 at 13:50 UTC ( [id://133730]=note: print w/replies, xml ) Need Help??


in reply to The key to paradise

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
 _  _ _  _  
(_|| | |(_|><
 _|   

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://133730]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2024-03-19 05:29 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found