http://qs1969.pair.com?node_id=8363


in reply to I work out/exercise this often

I'm trying to work out or exercise, but it's just not working for me. Does anyone know how to do this in Perl?
  • Comment on Does anyone know how to do this in Perl?

Replies are listed 'Best First'.
RE: Does anyone know how to do this in Perl?
by Simplicus (Monk) on Apr 21, 2000 at 18:33 UTC 
    my $life;

while($life) {
   if($ergs_expended) {
       $life++;
   }
   elsif($cheetos_eaten) {
       $life--;
   }
   else {}
}
while(true) {
   print "regret\n";

    [download]
    Sorry, forgot the final code tag
    Simplicus
[reply]
[d/l]

In Section Past Polls