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

Third Time's a Charm

by zdog (Priest)
on Dec 31, 2000 at 05:57 UTC ( #49039=obfuscated: print w/ replies, xml ) Need Help??

#!/usr/bin/perl -w use strict; $_='$_= three((trey($;)<<3)-((trey ($;)-3)*(3+3)))!three(($=-($=/3))*3-3)!three(( 3**3*3)+($=-($=/3)-3-3))!three(($=-($=/3))*3-3 -(trey($;)-3**3))!three($=/(3+3)*3+3-(trey($;) -3**3))!three(($=-($=/3))*3-3-($=/3))!three($= *3-$=-($=/(3 +3)))!three( $=*3-$=-($=/ (3+3))+(trey ($;)-3**3)) !three(($=-( $=/3))*3-3-( trey($;)-3** 3))!three( $=*3-$=-($= /(3+3))-($= /($=/(3+3)) ))!three($= *3-$=-$=/(3+3)-3*3)!three(($=-( $=/3))*3-3-3)!three($=/(3+3)*3+3-( trey($;)-3**3))!three($=+$=/3)!three( (($=)*3)-$=-($=/(3+3))-3*3)!three(($= -($=/3))*3-3- 3)!three($=*3 -$=-($=/(3+3) )-3+(trey($;) -3**3))!three ($=/(3+3)*3+3 -trey($;)+3** 3)!three(($=+ $=/3)/($=/(3+ 3))*(3*(3)))! three(($=-( $=/3))*3-(3)- (($=)/(3))) !three(($=/(3 +3))*($=/(3 +3))-trey($;) +((3**3)))! three($=*3-$= -($=/(3+3)) -($=/($=/(3+3 )))+3)!three($=*3-$=-($=/(3+3))-3*3)!three(($= -($=/3))*3-3-3);';s lthreelchrlg; y l!l.l; s ltreylordlg; eval; print $_."\n"; # third time's a charm

Zenon Zabinski | zdog | Zenon.Zabinski03@students.bcp.org

Comment on Third Time's a Charm
Download Code
will the madness ever stop?
by Rydor (Scribe) on Dec 31, 2000 at 10:27 UTC
    Hmmm... i've got shotty on 4

    @:::::::((==========Rydor====>

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2014-10-23 06:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (124 votes), past polls