Path: utzoo!utgpu!cs.utexas.edu!yale!cmcl2!acf5!geosynch2!holmes-iv.luna.fre!mike
From: mycroftxxx@holmes-iv.luna.fre (Mike)
Newsgroups: alt.hackers
Subject: Erisian Sorting Transducer
Summary: A woeful lucuna in the UNIX toolkit
Message-ID: <1723@holmes-iv.luna.fre>
Date: 16 Dec 90 21:45:26 GMT
Sender: news@holmes-iv.luna.fre
Followup-To: no followups, please
Organization: POEE, Adam Selene Cabal
Lines: 10
Approved: mike

#!/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;