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

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