[alt.hackers] Erisian Sorting Transducer

mycroftxxx@holmes-iv.luna.fre (Mike) (12/17/90)

#!/usr/local/perl

srand(time);
@v = <>;
for ($i = $#v; $i; $i--)
{
 $j = int(rand($i+1));
 ($v[$i], $v[$j]) = ($v[$j], $v[$i]);
 }
print @v;