« A middle-class white guy's view of diversity | Main | Decoding the body language of infants »

If caring for a newborn were a Pascal program

program Cycle;

var
   age_in_hours : longint;
   diaper_is_nasty : boolean;

(* Code for subroutines has been omitted. *)

begin

   age_in_hours := 0;

   repeat 
      CheckDiaper (diaper_is_nasty);
      if diaper_is_nasty then
         ChangeDiaper;
      FeedBaby;
      LetBabySleep;
      age_in_hours := age_in_hours + 3
   until age_in_hours > 720;

   writeln ('Congratulations, you've made it 
   through the first month.');

end.

Posted by crowther on October 27, 2006 6:20 AM |

Comments

Burp;

...(between FeedBaby and LetBabySleep)...

Posted by: corrado giambalvo | October 27, 2006 2:26 PM

Come on. There's only about 720 hours in a month.

Posted by: jay | October 30, 2006 7:48 PM

Thanks, Jay -- you're right. Another sign of sleep deprivation, I suppose. Anyway, I'll make the change now....

Posted by: crowther | October 30, 2006 8:40 PM

singLullaby;

where

favoriteLullaby := "Waltzing Mathida";

and

favoriteLullaby-->meterSet := "6/8";

...oops wrong OO & cultural language syntax...

Posted by: Ken Thomas | January 28, 2007 10:04 PM