Thread Zufalls-LOTTO-Zahlen (9 answers)
Opened by pax77 at 2008-01-29 19:55

Ronnie
 2008-01-29 21:26
#105337 #105337
User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]
Hallo pax77 und willkommen im Forum. Perl ist eine sehr ausdrucksreiche Sprache, die es wirklich lohnt zu lernen. Es gibt viele Module die dir das Leben erleichtern können, z.B. CPAN:List::Util das z.B. eine shuffle-Funktion bereitstellt um den Inhalt eines Arrays zu mischen. Auf use warnings; wurde ja schon hingewiesen. Hier im Wiki findest du auch viele nützliche Infos und wir beantworten auch gerne Fragen. Dein aktueller Programmier-Stil ist sehr C-orientiert. Perl unterstützt eine Vielzahl von Programmierweisen und jeder hier hat eine eigene Vorstellung davon, welche Arbeistweise er oder sie bevorzugt. Ein kleines Beispiel, wie so ein Programm aussehen kann, wenn man schon ein wenig dabei ist:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!/usr/bin/perl

use strict;
use warnings;

#use Data::Dumper;
use List::Util qw/shuffle/;

my $cnt = shift @ARGV || 12;    # wir wollen 12 Ziehungen
my @fav = (7, 13);              # und die Zahlen 7 und 13 müssen drin sein

print join( ', ',               # fasse das zusammen zur Ausgabe
    sort { $a <=> $b } (        # numerisch sortiert 
        pick_numbers(6 - @fav, @fav)    # gezogene Nummern
    ) ) . "\n" for 1..$cnt;     # für $cnt Ziehungen

sub pick_numbers {              
    my $n           = shift || 6;       # ziehe $n Zahlen oder 6
    my @numbers     = shuffle (1..49);  # erstelle eine gemischte Liste der Zahlen 1..49
    return @_, @numbers[0..--$n];       # und gib diese zusammen mit evtl. Favoriten zurück
}

Perl ist spannend und für unglaublich viele Aufgaben einsetzbar - nicht für alles - aber eben für sehr vieles. Und es ist eine Sprache die sich aktuell weiter entwickelt, ob als Perl 5.10 oder Perl 6.

Gruß,
Ronnie

View full thread Zufalls-LOTTO-Zahlen