note
BrowserUk
<blockquote><i></i></blockquote>
<p>Here's a non-aliasing version that does work, but it doesn't perform very well. <i>Why</i> it works is left as an exercise.
<code>
sub bukNoAlias (@) {
my @a = @_;
my( $n, $t );
my $i = @_;
map+( $t=$a[ $n=rand($i--) ], $a[ $n ]=$a[ $i ] )[ 0 ], @_;
}
</code>
<div class="pmsig"><div class="pmsig-171588">
<hr />
<font size=1 >
<div>Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.</div>
<div>"Science is about questioning the status quo. Questioning authority". </div>
<div>In the absence of evidence, opinion is indistinguishable from prejudice.</div>
<div>[http://news.bbc.co.uk/1/hi/education/6202877.stm|"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."]</div>
</font>
</div></div>
625977
626103