gistfile1.pl

use strict;
use warnings;
use 5.010;


# Retourne le nombre de 6 sortie sur X jets
sub Pool {
  my ($param) = @_;
  my $nbr6 = 0;
  foreach my $i(1..$param) {
    my $nombre = int(rand(6)) + 1;
    $nbr6 = ($nbr6 +1) if ($nombre == 6);
  }
  return $nbr6;
}


sub MoyennePool {
  my $nbr6 = 0;
  my ($param1, $param2) = @_;
  foreach my $i(1..$param2) {
    my $resultat = Pool($param1);
    $nbr6 = $nbr6 + $resultat;
    #say "$param2 = $resultat";
  }
  my $moyenne = $nbr6 / $param2;
  say "Moyenne du nombre de 6 sur $param2 x $param1.D6 = $moyenne";
}

MoyennePool(10, 10000);


sub Add {
  my ($param) = @_;
  my $add = 0;
  foreach my $i(1..$param) {
    $add = $add + (int(rand(6)) + 1);
  }
  return $add;
}

sub MoyenneAdd {
  my $nbr6 = 0;
  my ($param1, $param2) = @_;
  foreach my $i(1..$param2) {
    my $resultat = Add($param1);
    $nbr6 = $nbr6 + $resultat;
    #say "$param2 = $resultat";
  }
  my $moyenne = $nbr6 / $param2;
  say "Resultat moyen de $param2 x $param1.D6 = $moyenne";
}

my $addD = MoyenneAdd(1, 10000);