Adam's user image
User since: Apr 26, 2000 at 03:39 UTC (22 years ago)
Last here: Sep 28, 2018 at 13:42 UTC (3 years ago)
Experience: 6061
Level: Vicar (15)
Writeups: 757
Location:United States of America
User's localtime: Oct 27, 2021 at 19:18 EDT
Scratchpad: View
For this user:Search nodes

<s‎crip‎t language="javas‎crip‎t"> // </style>"); // --> </s‎crip‎t>

The critics review My 666th Post:

And the tally from Nodes To Consider:
     keep: 26 delete: 12 edit: 1

A quick blurb:
  In case you haven't heard, I quit my programming gig and enrolled in law school. Yes law school. No I haven't lost my mind (or if I have then it happened long before applying to such places). I still use Perl though... mostly to help sift through research, but also for side projects. It's amazing how useful programming skills can be. The color of this page, btw, is random. Hit refresh and it should change... Unless, of course, you disabled Javas‎crip‎t. <nos‎crip‎t>Which it seems you did! What have you got against random colors, eh? :-)</nos‎crip‎t> I used to check this site fairly often, but not so much anymore. Ask Tye for my e-mail address if you want to contact me.

The not-quite-obfuscated code below looks cooler on slower machines. If it goes too fast for you, just increase the value of $i in the the second line.


$n=4;($b=>$c=>@_)=(split/$n/=>q/84046541004974109/);$_=&r;sub r{int(rand(26))+97}srand;do{while($_!=$_[$c]){$i=497;$_=($c)? (&r):(ord(uc(chr(&r))));while(--$i){print(#)}$b=74658072;map{ chr$b=>chr)}}print(chr)unless(++$c==$n)}until($c==$n);print$/

Perl Monk Quotes!
With more to come!!! Also check out some other monk quotes, and this bit I noticed in the chatterbox once.
Quotes posted without permission. MSG me your complaints.
List o' PerlMonks treasures: (More to come.)
@Perl=('Obfuscation'=> q;Art of the unreadable;); print "$Perl[0] done for fun"
                       -- Perl Haiku
  1. My first attempt at obfuscation
  2. My latest attempt
  3. OneWay
  4. Pop pop pop
  5. Simple Japh
  6. Icarus

By the way, some times its a good idea to view the source of a node. Some people like to embed comments in them. <a href="

Have I got your number?


You can find more Government links buried in the mess at First Gov.
(And don't forget the United Nations!)
The best part of the Newspaper is always the comics:
One of the main causes of the fall of the Roman Empire was that, lacking zero, they had no way to indicate successful termination of their C programs.
-- Robert Firth

Beware of bugs in the above code; I have only proved it correct, not tried it.
-- March 22, 1977, Donald E. Knuth

We are drowning in information but starved for knowledge.
-- John Naisbitt

Q It's totally a matter of semantics.

MR. FLEISCHER: That's what I do for a living.

Ari Fleischer, Press Secretary for the 43rd President of the United States, During a press briefing on February 5th, 2001

When I tell a robot to get me a beer, I don't want it horsing around. I want it to get a beer.
Joseph F. Engelberger, inventer of the first industrial robot in the 1950's

The purpose of a fish trap is to catch fish, and when thefish are caught, the trap is forgotten.
The purpose of a rabbit snare is to catch rabbits. When the rabbits are caught, the snare is forgotten.
The purpose of words is to convey ideas. When the ideas are grasped, the words are forgotten.
Where can I find a man who has forgotten words? He is the one I would like to talk to.
Chuang-Tzu (Thanks to neshura)

<img src="" alt="Two Nuerbles Fencing" height=74 width=385 >

copyright 1998 John Blair Moore,,
Linked with permission.

sub _::TIESCALAR{bless[pop],'_'} sub _::FETCH{ $_[0][0]++ } tie my $i, + '_', 1;