Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

my @three_virtues;

by Falkkin (Chaplain)
on Jan 07, 2001 at 21:29 UTC ( #50352=poem: print w/ replies, xml ) Need Help??

#!/usr/bin/perl my @three_virtues; my $author = "Colin McMillen"; use warnings; use strict; my $laziness = int(rand(2)); my $impatience = int(rand(2)); my $hubris = int(rand(2)); code_intelligently() or die "not enough laziness"; code_quickly() or die "not enough impatience"; code_perfectly() or die "not enough hubris"; sub code_intelligently { return $laziness } sub code_quickly { return $impatience } sub code_perfectly { return $hubris }
(Note: The first three times I ran this poem, it told me I didn't have enough hubris.)

Comment on my @three_virtues;
Download Code
Re: my @three_virtues;
by mrmick (Curate) on Jan 08, 2001 at 19:38 UTC
    I like it. Nice and simple! Makes one want to read it.

    ++ for Falkkin

    Mick

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (14)
As of 2014-09-16 20:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (46 votes), past polls