Scripts Perl

Dernière mise à jour : 26/05/2016

Nombre aléatoire

Énoncé

Ecrivez un script perl qui va générer un nombre aléatoire. Vous devrez trouver le nombre. Pour chaque essai, le script vous dira si le nombre à trouver est plus grand ou plus petit. Lorsque le nombre est trouvé, le script vous dira en combien de coups.

Solution

#!/usr/bin/perl

# (c) Sébastien Adam 2002
# Licence Creative Commons Attribution - Pas d'Utilisation Commerciale - Partage
# dans les Mêmes Conditions 2.0 Belgique.

$maxnum = 1024;
print "Vous devez trouver un nombre compris entre 1 et $maxnum\n";

$sol = int(rand $maxnum) + 1;
$i = 0;

do{
  do {
    print "Introduisez votre nombre : ";
    $in = <STDIN>;
  } until($in =~ /^\d+$/);
  $i++;
  if ($in < $sol) {
    print "Le nombre à trouver est plus grand\n";
  } elsif ($in > $sol) {
    print "Le nombre à trouver est plus petit\n";
  } else {
    print "Vous avez trouvé la solution en $i coups\n";
  }
} until($in == $sol);