Change 12004 by ams@ams-lustre on 2001/09/12 01:13:49
Subject: [PATCH perlfaq4.pod] Deobfuscate Fisher-Yates example code
From: Ilmari Karonen <[EMAIL PROTECTED]>
Date: Tue, 11 Sep 2001 23:31:25 +0300 (EET DST)
Message-Id: <Pine.SOL.3.96.1010911231925.688A-100000@simpukka>
Affected files ...
... //depot/perl/pod/perlfaq4.pod#45 edit
Differences ...
==== //depot/perl/pod/perlfaq4.pod#45 (text) ====
Index: perl/pod/perlfaq4.pod
--- perl/pod/perlfaq4.pod.~1~ Tue Sep 11 19:30:06 2001
+++ perl/pod/perlfaq4.pod Tue Sep 11 19:30:06 2001
@@ -1211,8 +1211,8 @@
# generate a random permutation of @array in place
sub fisher_yates_shuffle {
my $array = shift;
- my $i;
- for ($i = @$array; --$i; ) {
+ my $i = @$array;
+ while (--$i) {
my $j = int rand ($i+1);
@$array[$i,$j] = @$array[$j,$i];
}
End of Patch.
