Lösung zu Blatt 1 --- UNIX Datenbanken II (WS 1999/2000)

1. Let's play the game

#!/usr/local/bin/perl -w

my $top = 1024;
my $number = int(rand() * $top);
my ($guesses, $success) = (0, 0);
my @guesses = ();

print "Zu erraten ist eine Zahl zwischen 0 und ", $top - 1, ".\n";
while (print("Ihr Tip: "), defined($guess = <STDIN>)) {
   chomp($guess);
   $guesses[$#guesses + 1] = $guess;
   ++ $guesses;
   if ($guess == $number) {
      print "Glueckwunsch\n"; $success = 1; last;
   } elsif ($guess < $number) { 
      print "Ihr Tip ist zu niedrig!\n";
   } else {
      print "Ihr Tip ist zu hoch!\n";
   }
}
if ($success) {
   print "Sie benoetigten $guesses Versuche.\n";
} else {
   print "\nNach $guesses Versuchen kamen Sie nicht auf $number.\n";
}
print "Ihre Versuche: ".join(" ", @guesses).".\n";