Re: The Mr Magoo Awards (tpr05a)

--- [email protected] wrote:
> I finally got around to writing a little program to prevent
> you stubbing your putter into the ground behind the ball
> when attempting to smoothly stroke a one inch putt into
> the hole.

v. cool. Got two strokes off me! A couple of amendments to Mr. Magoo, to
automatically limit cpu time (unix/cygwin only):

! my ($real_time) = `cp $too_fat_prog $hole_prog;/usr/bin/time -p $^X
$test_prog 2>&1`=~/^real\s+(\d[.\d]*)/m;
! my $max_time = int($real_time * 2);
! print "Limiting CPU time to $max_time\n";
! 
  my $sidx = 7;			# "#!perl " or "#!perl\n"
  my $eidx = length($too_fat) - 1;
  for my $i ($sidx .. $eidx) {
      # next if $i == 72;  # eugene.pl (hack if program hangs)
      my $lose_some_weight = $too_fat;
!     $lose_some_weight =~ s/(.{$i})(.)/$1/s;
      my $ch = $2;
      print "i=$i '$ch' prog='$lose_some_weight'\n";
      {  open(my $fh, '>'.$hole_prog) or die "open '$hole_prog': $!";
         print $fh $lose_some_weight;
     }
!     my $s = `ulimit -t $max_time; $^X $test_prog 2>&1`;

Think it's easiest to just use realtime, at least on solaris, unless you know a
good way to gather the cpu time of child processes that the tpr test script
will create.

now how about a quotes/sig file with one line descriptions of golf aphorisms?
here we go:

~$a -- true if ASCII string is non-empty, works for "0"
[$a^abc] -- toggle a charset by making $a non-empty
$|++ -- alternately 0 and 1
$^I -- variable efficiently initialised with -i
perl -[np] -e 'every line}once;for(list){' -- exploit -n or -p

Greg

__________________________________________________
Yahoo! - We Remember
9-11: A tribute to the more than 3,000 lives lost
http://dir.remember.yahoo.com/tribute