Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

The nature of work

by tilly (Archbishop)
on Aug 28, 2000 at 16:25 UTC ( #29977=poem: print w/replies, xml ) Need Help??

The job I want:
$dollars++ while sleep(1);
The job I get:
{ work(); redo; get_rich(); }
That's life!

Replies are listed 'Best First'.
RE: The nature of work
by Mushy (Scribe) on Aug 29, 2000 at 01:48 UTC
    % cat #!/usr/bin/perl # use Reality; # from tilly while ($alive && !$rich) { $money = work(); $taxes = 30 + rand 20; $money -= $taxes; pay($taxes); } die "Empty handed."; __END__ % perl -c Warning: The value of $rich is always false. %

    - Mushy

      Good one!!!
      I wish I only paid 50$ in taxes tops.
        Nobody said the unit was USD! It could be something like "the average national income of a small developing country" (on second thought that is still not much -- and if it is negative you get a tax-refund).


        "If you have four groups working on a compiler, you'll get a 4-pass compiler." - Conway's Law

RE: The nature of work
by t0mas (Priest) on Aug 28, 2000 at 18:21 UTC
    Poor tilly: That's life!

    $life = "hard";


    /brother t0mas

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: poem [id://29977]
Approved by root
marto gasps at number of blocks in the Lego millennium falcon
[marto]: How many days till Christmas? ;)

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (6)
As of 2017-12-18 21:15 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (498 votes). Check out past polls.