Perl – Arrayinhalte mischen
Dieser Code beschreibt das zufällige Mischen von Arrayinhalten, als Beispiel dient die Ziehung der Lottozahlen.
Das Script als komplettes Codebeispiel.
Als Mischroutine kommt dabei ein Algorithmus nach Fisher Yates zum Einsatz.
#!/usr/bin/perl # Benutzung: # Das Script als "lotto.pl" abspeichern # Im ASCII Modus hochladen # chmod 755 vergeben und im Browser aufrufen. #Fehlerausgabe an Browser use CGI::Carp qw(fatalsToBrowser); use strict; print "Content-type: text/html \n\n"; # Lottozahlen my @lottozahlen = (1..49); # Erste Mischung... fisher_yates_shuffle(@lottozahlen); # Nochmal mischen das ganze my @zweite_mischung = (@lottozahlen); fisher_yates_shuffle(@zweite_mischung); # Zufaellige Startzahl ermitteln fuer das auslesen # der 7 Lottozahlen aus dem gemischten Array my @startzahl = (1..40); my $sz = $startzahl[rand @startzahl]; # Holen der Lottozahlen my @unsortiert = (); for (my $i = $sz; $i <= 6+$sz; $i++) { push(@unsortiert, $zweite_mischung[$i]); } print "<b>Ziehung der Lottozahlen: \"6 aus 49\"</b><hr>"; # Sortieren... my @sortiert = sort {$a <=> $b} @unsortiert; # Zusatzzahl ermitteln my $zz = $sortiert[rand @sortiert]; # Lottozahlen ausgeben... foreach my $lotto (@sortiert) { if ($lotto ne $zz) { print "$lotto<br>"; } } # Zusatzzahl ausgeben... print "<b>Zusatzzahl:</b> $zz<br><br><a href=\"lotto.pl\">...nochmal mischen</a>"; # Mischroutine nach Fisher Yates sub fisher_yates_shuffle { my $array = shift; my $i; for ($i = @$array; - $i;) { my $j = int rand ($i+1); next if $i == $j; @$array[$i,$j] = @$array[$j,$i]; } }
Beispielausgabe:
Ziehung der Lottozahlen: „6 aus 49“
2
17
19
21
25
46
Zusatzzahl 5
…nochmal mischen
Weitere Beiträge
Amazon Oster-Angebote – erste Angebote sind verfügbar
Amazon Oster-Angebote: Ostern steht vor der Tür. Eine gute Gelegenheit, um die Wohnung oder den Arbeitsplatz bunter zu gestalten. Auch der Frühjahrsputz steht vor der Tür. Die Amazon Osterangebote vom 20. bis 25. März bieten attraktive Rabatte auf Elektronik, Haus & Garten, Spielwaren und mehr. Schneller Versand inklusive! Die ersten Angebote sind bereits verfügbar – […]
Das neue MacBook Air 2024 mit M3 Chip bei Amazon
MacBook Air 2024. Apple präsentierte überraschend die neuen MacBook Air Modelle mit dem leistungsstarken M3 Chip. Neben der besseren Hardware, die deutlich schneller ist als die Rechner der Konkurrenz, wurde vor allem die Tatsache begrüßt, dass das Macbook endlich mit zwei externen Monitoren funktioniert. Erfreulich ist, dass die neuen MacBooks bereits bei Amazon bestellt werden […]
Last Minute Angebote von Amazon
Wer noch auf der Suche nach dem passenden Weihnachtsgeschenk ist, ist bei den Last-Minute-Angeboten von Amazon genau richtig. Egal, ob Sie noch nicht wissen, was Sie schenken sollen, oder einfach ein Schnäppchen machen wollen – bei den Last-Minute-Angeboten werden Sie garantiert fündig.
Amazon Black Friday Woche startet
Auch in diesem Jahr präsentiert Amazon während der Black Friday Woche wieder erstklassige Schnäppchen in allen Kategorien. Kundinnen und Kunden können sich auf einzigartige Geschenkideen und interessante Angebote für die bevorstehende Weihnachtszeit freuen. Darüber hinaus gibt es eine Vielzahl weiterer Produkte mit attraktiven Preisnachlässen – und das elf Tage lang. Ab Freitag, den 17. November […]
Keine Kommentare vorhanden