Universität Ulm,
Fakultät für Mathematik und Wirtschaftswissenschaften,
SAI
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";
Ingo Melzer, 04. November 1999