Nur die ersten x in einem Array - #115708 (Allgemeines zu Perl)

cbxk1xg

2008-10-23 01:40

User since
2003-10-20
496 Artikel
BenutzerIn
[default_avatar]

Ich war wohl nicht eingeloggt. Danke, ich hab's jetzt anders gelöst. Aber ich müßte das Array vorher noch per Zufall durchmischen und habe mal etwas probiert, was ich per Google gefunden habe:

Code (perl): (dl )

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];
        }
}

Leider variiert nun komischerweise die Gesamtanzahl der Elemente. Mal sind es drei weniger, mal nur eines weniger??? Ich verstehe das nicht.