use List::BinarySearch 'binsearch';
use IO::Prompt::Hooked 'prompt';

print "Please think of a number between 1 and 10...\n";
print "DON'T tell me, just let me guess it!\n\n";

my $tries = 0;

binsearch {

  ++$tries;

  my $response = prompt(
    message => "Is the number $b? (higher, lower, or yes):",
    validate => qr/higher|lower|yes/i,
    error    => sub { "I don't understand $_[0]. Try again.\n" },
  );

  return 1 if $response =~ /higher/i;
  return -1 if $response =~ /lower/i;

  print "Found $b in $tries guesses.\n";
  exit(0);

} undef, @{[1 .. 10]};