Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Japh Random Search

by cristian (Hermit)
on Mar 17, 2005 at 21:45 UTC ( [id://440551]=obfuscated: print w/replies, xml ) Need Help??

#!/usr/bin/perl
%_=(106=>[1],117=>[2],115=>[3], 116=>[4,9],32=>[5,13,18],97=>[6,20], 110=>[7],111=>[8],104=>[10,19],101=>[11, 15,23], 114=> [12,16,24], 112=>[14],108 =>[17],99=> [21],107=>[22 ],74=>[1],85 =>[2],83=>[3],84=>[4,9],32=>[5,13,18],65 =>[6,20],78=>[7],79=>[8],72=>[10,19],69 =>[11,15,23],82=>[12,16,24],80=>[14] ,76=>[17],67=>[21],75=>[22]);while (1) {system clear; $_____=int rand 255;$____=0;if ($_ {$_____} ) { my @______ = @ { $_ { $_____}};$___[$_] = chr $_____ for @______;for (@___) { $____++ if $_;}} print $_ for @___; last if $____ == 24 ; } print "\n"; #Japh Random Search ##################

Log In?
Username:
Password:

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

How do I use this?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (4)
As of 2024-04-20 03:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found