Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
PerlMonks  

Re: The key to paradise

by gmax (Abbot)
on Dec 21, 2001 at 13:50 UTC ( #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
 _  _ _  _  
(_|| | |(_|><
 _|   


Comment on Re: The key to paradise
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (8)
As of 2014-09-19 08:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (133 votes), past polls