Think about Loose Coupling | |
PerlMonks |
|
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 Javascript.
<noscript>Which it seems you did! What have you got against random colors, eh? :-)</noscript>
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$/
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.
-- Perl Haiku@Perl=('Obfuscation'=> q;Art of the unreadable;); print "$Perl[0] done for fun"
By the way, some times its a good idea to view the source of a node. Some people like to embed comments in them. Click here to run a Super Search listing them all.
m/^([+-]?)((?:\d+(?:\.\d*)?|\.\d+)|(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?)$/
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)
copyright 1998 John Blair Moore,
www.nuerble.com, www.3guys.com.
Linked with permission.
sub _::TIESCALAR{bless[pop],'_'} sub _::FETCH{ $_[0][0]++ } tie my $i, + '_', 1;