Keskustelu: Koodit: Perl: Lottovoiton todennäköisyys Tk-kirjastolla

use Tk;

#Tämä ohjelma laskee todennäköisyyden, että arvotuista numeroista tietty määrä on oikein.
#Tähän tarvitaan tieto kaikista numeroista ja arvottujen (eli oikeiden) numeroiden määrästä.
#Esimerkiksi voidaan laskea, että 39 numerosta, josta valitaan 7 on tietty määrä oikein.

my $main = MainWindow->new;
$main->title("Lottovoitto");

my $teksti = "";

#Luodaan kontrollit.
#Tulostetaan listaan todennäköisyys, että saadaan tietty määrä oikein.

my $nappain = $main->Button(-text=>"Laske",-command=>\&Laske)->pack();
my $lappu = $main->Label(-textvariable=>\$teksti)->pack();
my $tlaatikko = $main->Entry()->pack();
my $lista = $main->Listbox(-selectmode=>"single")->pack();

#Lisätään selite.
$teksti = "Numerot,oikeat";


sub Kertoma($){
 my $n = int $_[0];
 my $tulos = 1;
 $tulos *= $_ for 1 .. $n;
 return $tulos;
}

sub Todennakoisyys($$$$) {
my $kaikki = int $_[0];
my $oikeat = int $_[1];
my $x = int $_[2];
my $binomi = int $_[3];
#Lasketaan binomikerroin ja todennäköisyys.
 #Binomikertoimia varten pitää laskea kertoimet

 my $binomi2 = Kertoma($oikeat)/(Kertoma($x)*Kertoma($oikeat-$x)); #Lasketaan niiden kombinaatioiden määrä, jotka on mahdollisuus saada oikein.

 my $vaarat = $oikeat-$x;

 my $binomi3 = Kertoma($kaikki-$oikeat)/(Kertoma($vaarat)*Kertoma($kaikki-$oikeat-$vaarat));
 #Nyt on laskettu binomikertoimet, joten lasketaan todennäköisyys.
 my $tn = ($binomi2*$binomi3)/$binomi;
 return $tn;
}

sub Laske(){
#Tyhjennetään seuraavaa varten.
 $lista->delete(0.0,'end');

 #Otetaan tiedot kaikkien numeroiden ja oikeiden numeroiden määrästä.
 @syote = split(',',$tlaatikko->get());
 my $kaikki = int $syote[0];
 my $oikeat = int $syote[1];

 #Lasketaan mahdollisten yhdistelmien määrä.
 $binomi = Kertoma($kaikki)/(Kertoma($oikeat)*Kertoma($kaikki-$oikeat));

 #Lasketaan todennäköisyydet kaikille määrille.
 for ($x = 0; $x <= $oikeat; $x+=1){
  $lista->insert("end","$x : ");
  $lista->insert("end",Todennakoisyys($kaikki,$oikeat,$x,$binomi));
 }
}

MainLoop;