kurs:lotto2.pl
Differences
This shows you the differences between two versions of the page.
|
kurs:lotto2.pl [2014/09/10 21:22] |
kurs:lotto2.pl [2014/09/10 21:22] (current) |
||
|---|---|---|---|
| Line 1: | Line 1: | ||
| + | <code> | ||
| + | use strict; | ||
| + | use warnings; | ||
| + | my $range = 45; | ||
| + | my @zahlen; | ||
| + | my $d = 0; | ||
| + | for (my $i = 1; $i<= 6; $i++) { | ||
| + | my $z = int(rand($range))+1; | ||
| + | if (grep {$_ == $z} @zahlen) { | ||
| + | $d++; | ||
| + | redo; | ||
| + | } | ||
| + | push (@zahlen, $z); | ||
| + | print "$i $z\n"; | ||
| + | } | ||
| + | |||
| + | print "mehrfach $d\n"; | ||
| + | </code> | ||
kurs/lotto2.pl.txt ยท Last modified: 2014/09/10 21:22 (external edit)
Page Tools
Except where otherwise noted, content on this wiki is licensed under the following license: CC Attribution-Share Alike 4.0 International
