#!/usr/bin/perl
use strict;

my $max;            #horni mez tajneho cisla
my $pokus;          #uchovava aktualni pocet pokusu
my $tajne_cislo;    #uchovava vygenerovane cislo
my $hadane_cislo;   #cislo nactene ze vstupu

srand;

#vygenerovani meze a tajneho cisla
print "Zadej největší možné číslo: ";
chomp($max = <STDIN>);

if (int $max <= 0){
    die "Toto není správně zadané číslo.\n";
}

$tajne_cislo = int(rand($max)) + 1;
$pokus = 1;


#hadani
while (1){
    print "Hádej číslo mezi 1 a $max.\n";
    chomp($hadane_cislo = <STDIN>);
   
    if ($hadane_cislo == $tajne_cislo){
        print "Gratuluji, uhodl jste na $pokus. pokus!\n";
        last;
    }elsif($hadane_cislo < $tajne_cislo){
        print "To je málo. ";
    }else{
        print "Moc. ";
    }
}continue{
    $pokus++;
}
