Hi all.

In an effort to entertain myself (and share a little knowledge), I ported a recursion based java program to perl. I fear many monks (especially beginning programmers) might not be aware that using recursion in their programs offers numerous benefits. If anyone can suggest how I might enhance the following application, feel free to post.

#!/usr/bin/perl -w

use constant HIGH => 10_000;
my $ans = 0;

$ans = int(rand(HIGH)) + 1;

&cleverGuess(1, HIGH);

sub cleverGuess {

   my( $lower, $higher ) = @_;                                        
+                                     
   my $guess = int(($lower + $higher)/2);
   print "Guessing: $guess\n";

   if ($guess == $ans) {
      print "The guess was correct!";
   }

   elsif ($ans < $guess) {
      print "Lower...";
      cleverGuess($lower, $guess-1);
   }

   else {
      print "Higher...";
      cleverGuess( $guess + 1, $higher );
   }
}
[download]

Thanks,
~Katie