Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

sleep deprived

by synapse0 (Pilgrim)
on Sep 25, 2001 at 18:37 UTC ( #114543=poem: print w/replies, xml ) Need Help??

#!/usr/bin/perl $eat;sub stare{ @the; print "on the wall "; } INSOMNIA: my $awake? $I = 'think so' : $awake = ('1','2','testing...','yes, I am still awake..'); $awake = $awake + $awake + $awake; while ($awake) { # might as well sit here... &stare(0.0); $getting = sleep(y///); $awake--; # still, can't sleep wait; } $awake? $I = "am not!" : $I = "am dreaming"; $no = wait; $I = "am still $awake"; &stare('ing'); @the; print "on the wall "; goto INSOMNIA; # clinic tomorrow...
-------------

my first poetry(ish) thing.. freeform... I really need sleep... I think i'll do that now..
hope you enjoyed it..
-Syn0
(this was tested on perl, version 5.005_03 built for i386-bsdos)

Replies are listed 'Best First'.
Re: sleep deprived
by suaveant (Parson) on Sep 25, 2001 at 18:40 UTC
    I like this :)
    &stare(0.0);
    :)

                    - Ant
                    - Some of my best work - Fish Dinner

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (3)
As of 2023-01-27 02:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?