Comments on: It’s Not That Easy Drinking Green

By: Steven Hart

Steven Hart — Mon, 19 Mar 2007 20:06:59 +0000

You didn’t give any green beer to the penguin, did you? Because that would be wrong, you know. Making a penguin drink green beer, I mean. Even if it is a stuffed penguin.

By: mssmas

mssmas — Mon, 19 Mar 2007 16:30:07 +0000

You deserve that million dollar bill for customer service!
(glad you are writing here again, missed you)

By: Jane the Em Quot

Jane the Em Quot — Mon, 19 Mar 2007 00:38:22 +0000

How did the Moses thing go? Or is that next weekend? Inquiring minds want to know.

Jane (back from Nashville, see blog for preliminary details)

By: John Cowan

John Cowan — Sun, 18 Mar 2007 16:07:36 +0000

Arrgh, looks like the code got truncated in the middle of a line thanks to the less-than operator. I’ll try that part again:

$m– if $phi - $otry (less-than) $try - $phi;
my $work = $hshift + $m;
my $hour = int($work / 60);
my $min = $work - ($hour * 60);
print “For a $shift-hour shift, break after $hour hours, $min minutes.\n”;

Note that the stupid “$m[em-dash]” should be “$m minus minus”. To run, say “work-break 4″.

By: John Cowan

John Cowan — Sun, 18 Mar 2007 16:05:12 +0000

Well, I wrote a little Perl program to figure it for me. It says the start of your break should come at 2 hours 22 minutes for a 4-hour shift and 1 hour 45 minutes (as you say) for a 3-hour shift. Here’s the code:

#!/usr/bin/perl -w

use strict;

my $break = 10; # break time in minutes
my $shift = shift; # shift in hours
my $hshift = ($shift * 60 - $break) / 2; # half a working shift in minutes
my $phi = 1.618033989; # the Golden Ratio
my $m; # offset in minutes
my $try; # latest approx to phi
my $otry; # previous approx to phi

for ($m = 0; $m $phi;
}

$m– if $phi - $otry