Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

So very bored

by nashdj (Friar)
on Dec 01, 2000 at 13:29 UTC ( #44314=obfuscated: print w/ replies, xml ) Need Help??

My cable went out, and alas I had nothing to do.
$_=join("",<DATA>),'Soooooooooo',seek(DATA,0,0);s /Z/#/;s/#|%|[0-9]\n//g;'Bored.....';eval;__DATA__ for (# <DATA> ) { my $x ; 3 cho#p , $#a = #cho#p ;5 s#/Z/$a#/g ; f#or ( split 4 ( // ) ) {$_#[ 0#+$x ]# = $#_ + 0 #2 if (/[$##a]/ ) ; $##x#++ ; ##} } 0 $_[ $_] #= (# # # $_#[#$_*#2] 6 .$#_#[# $_ *#2 #+1 # # #] #)8 #+32 f#o#r # (0..@_/2) # # ;## 7 print map( c#hr, @#_[ 0.#.@_ /2 ] ) # ;9 #

Comment on So very bored
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2014-12-27 00:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (176 votes), past polls