Thread Alle Zahlen von 1-25 per Random ziehen
(12 answers)
Opened by Robby at 2003-10-08 12:49 Code (perl): (dl
)
1 2 3 use List::Util qw/shuffle/; print join " ", shuffle(0 .. 24), "\n" for 0 .. 9; Mit Perl 5.8.0 (ohne Ausgabe): Rate esskar dubu esskar 7714/s -- -86% shuffle 54305/s 604% -- |