Deobfuscate Fisher-Yates example code
authorIlmari Karonen <iltzu@sci.fi>
Tue, 11 Sep 2001 23:31:25 +0000 (02:31 +0300)
committerAbhijit Menon-Sen <ams@wiw.org>
Wed, 12 Sep 2001 01:13:49 +0000 (01:13 +0000)
Message-Id: <Pine.SOL.3.96.1010911231925.688A-100000@simpukka>

p4raw-id: //depot/perl@12004

pod/perlfaq4.pod

index 7dcb881..bf24254 100644 (file)
@@ -1211,8 +1211,8 @@ If not, you can use this:
     # 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];
         }