Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Three Little Words

by Mr. Muskrat (Canon)
on Nov 21, 2002 at 13:01 UTC ( [id://214758]=obfuscated: print w/replies, xml ) Need Help??

#!/usr/bin/perl @__=(140,222,228,64,142,222,200,64,230,# The 222,64,216,222,236,202,200,64,232,208, # best 202,64,238,222,228,216,200,64,232,208, # verse 194,232,64,144,202,64,206,194,236,202, # of 64,144,210,230,64,222,220,216,242,64, # the 196,202,206,222,232,232,202,220,64,166,# best 222,220,64,232,208,194,232,64,238,208, # book 222,230,222,202,236,202,228,64,196,202,# ever 216,210,202,236,202,232,208,64,210,220,# written. 64,144,210,218,64,230,208,222,234,216, # Here 200,64,220,222,232,64,224,202,228,210, # it 230,208,64,196,234,232,64,208,194,236, # is 202,64,202,236,202,228,216,194,230,232,# summed 210,220,206,64,216,210,204,202,64,90, # up 64,148,222,208,220,64,102,116,98,108); # for @_=map{$_>>=1;chr($_)}@__;@__=(46,16, # you 34,60,24,10,60,28,16,16,34,62);$_{$/}= # in $\;@_=map{$_{$_}++}@_;@_=sort{${b}cmp # three ${a}}keys%_;@__=grep{$_>>=1;$_[${_}--] # little =${_}[++$_]}@__;for(@__){print $_[$_]} # words.

Replies are listed 'Best First'.
Re: Three Little Words
by mojobozo (Monk) on Nov 21, 2002 at 14:18 UTC
    Word that!

    _____________________________________________________
    mojobozo
    word (wûrd)
    interj. Slang. Used to express approval or an affirmative response to
    something. Sometimes used with up. Source

Log In?
Username:
Password:

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

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

    No recent polls found