sorry - Betriebsblindheit

[rolfrost]

Moin,

wir machen mal eine Ziehung:

use strict;

3 verschiedene Zahlen ziehen

my @numbers = (1..25);

kräftig mixen

shuffle(@numbers);

Ziehung

my ($r,$s,$t) = @numbers;
print "$r $s $t\n";
print "aus ", join " ", @numbers, "\n";

subfunktion menge mischen (siehe PERL Doku: fisher_yates_shuffle)

sub 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];
 }
}
=cut
9 12 2
aus 9 12 2 16 17 25 14 1 24 4 10 19 6 15 21 3 7 18 5 13 8 11 22 20 23

Viele Grüße an die Community, Rolf