home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / perl / 5593 < prev    next >
Encoding:
Text File  |  1992-08-29  |  721 b   |  24 lines
  1. Newsgroups: comp.lang.perl
  2. Path: sparky!uunet!etnibsd!vsh
  3. From: vsh@etnibsd.uucp (Steve Harris)
  4. Subject: Re: Ordering indices based on their values
  5. Message-ID: <1992Aug28.214803.2432@etnibsd.uucp>
  6. Organization: Eaton Corp, Semiconductor Equipment Div., Beverly, MA
  7. References: <GLENN.92Aug26122420@capella.clsi.COM>
  8. Distribution: comp.lang.perl
  9. Date: Fri, 28 Aug 1992 21:48:03 GMT
  10. Lines: 12
  11.  
  12.  
  13. @array = (7,2,4,-1,5);
  14. print join(' ',&idx_sort(@array)), "\n";
  15.  
  16. sub idx_sort {
  17.     # returns indicies of input array sorted by values of input array
  18.     local($i) = 0;
  19.     grep(s/.*\t//,sort(numeric grep($_ .= "\t" . $i++,@_)));
  20. }
  21. sub numeric { $a <=> $b; }
  22. -- 
  23. ... Steve Harris - Eaton Corp. - Beverly, MA - uunet!etnibsd!vsh
  24.