diff options
| author | Ben Tilly <ben_tilly@operamail.com> | 2000-09-01 16:23:16 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-02 15:06:14 +0000 |
| commit | e4a64502da04d242cd0a5ccb9208671d482e51b5 (patch) | |
| tree | ff1832e4b5cc0a83ea74d84b44ae80d5b2d4deb0 | |
| parent | f7aaccc209ec5f90cb29b7b4871f5abef7db50d5 (diff) | |
| download | perl-e4a64502da04d242cd0a5ccb9208671d482e51b5.tar.gz | |
Apparently avoiding the swapping is too costly.
Subject: Re: the door is closed.
Message-ID: <LAW2-F2963JkUwWpSWe00000904@hotmail.com>
p4raw-id: //depot/perl@7004
| -rw-r--r-- | pod/perlfaq4.pod | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/pod/perlfaq4.pod b/pod/perlfaq4.pod index 112b1edabf..79905f88ce 100644 --- a/pod/perlfaq4.pod +++ b/pod/perlfaq4.pod @@ -1189,7 +1189,6 @@ Use this: my $i; for ($i = @$array; --$i; ) { my $j = int rand ($i+1); - next if $i == $j; @$array[$i,$j] = @$array[$j,$i]; } } |