01.06.2010, 12:09
|
|
Познающий
Регистрация: 03.01.2010
Сообщений: 42
Провел на форуме:
162143
Репутация:
3
|
|
Угадайка на perl 
PHP код:
//fucking BRED by SHiNiGaMi
//icq 478866968
#!usr/bin/perl
$num = int(rand(100));
$try = 1;
$a = 0; $b = 100;
m1: while(true)
{
print "Trying$try: Enter the number between $a and $b:";
$user = <STDIN>;
chomp($user);
if($user != $num)
{
if($user > $num)
{
if($user>=$b)
{
print "Wrong value!";
$try++;
}
else
{
$try++;
print "Too large!\n";
$b = $user;
}
}
else
{
if($user<=$a)
{
print "Wrong value!";
$try++;
}
else
{
$try++;
print "Too small!\n";
$a = $user;
}
}
}
else
{
last m1;
}
}
print "You won by $try tryings!\n";
<>;
Последний раз редактировалось SHiNiGaMi; 02.06.2010 в 07:55..
|
|
|