home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / perl / 5523 < prev    next >
Encoding:
Internet Message Format  |  1992-08-26  |  2.1 KB
  1. Path: sparky!uunet!sun-barr!ames!uakari.primate.wisc.edu!caen!malgudi.oar.net!uoft02.utoledo.edu!jupiter!steiner
  2. From: steiner@jupiter.cse.utoledo.edu (jason "Think!" steiner)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: Ordering indices based on their values
  5. Message-ID: <1992Aug26.203033.9718@uoft02.utoledo.edu>
  6. Date: 27 Aug 92 01:30:32 GMT
  7. References: <GLENN.92Aug26122420@capella.clsi.COM>
  8. Distribution: comp.lang.perl
  9. Lines: 61
  10. Nntp-Posting-Host: jupiter.cse.utoledo.edu
  11.  
  12. glenn@clsi.COM (Glenn Boysko) writes:
  13. > 
  14. > Hello Perl Hackers,
  15. > 
  16. > I was wondering if anyone knew of an efficient, simple way to 
  17. > produce an ordered array of indices whose order was based on their 
  18. > values.  Consider the following array:
  19. > 
  20. >     Index | Value
  21. >     ------+------
  22. >       0   |  7
  23. >       1   |  2
  24. >       2   |  4
  25. >       3   | -1
  26. >       4   |  5
  27. > 
  28. > I would like a new array whose values are indices of the input 
  29. > array.  The values of the new array are ordered such that their 
  30. > values in the original array are ordered in descending order.  The 
  31. > resulting array for our example is:
  32. > 
  33. >     Index | Value
  34. >     ------+------
  35. >       0   |  0
  36. >       1   |  4
  37. >       2   |  2
  38. >       3   |  1
  39. >       4   |  3
  40. > 
  41. > Note that an appropriate solution would be to use an associative 
  42. > array to store (value, index) entries and then sort the keys.  
  43. > However, this will not work if the values of the original array are 
  44. > not distinct.
  45. > 
  46. > Once this array has been generated, I can process each entry in the 
  47. > orignal array according to the descending order of the values.
  48. > 
  49. > Any Ideas?
  50. > Glenn
  51.  
  52. here's how i would do it...
  53.  
  54. #!/usr/local/extras/bin/perl
  55.  
  56. @array=(7,2,4,-1,5);
  57. @index=(0,1,2,3,4);
  58.  
  59. @index = sort {$array[$b]<=>$array[$a];} @index;
  60. for (@index) { print "$_\t$array[$_]\n"; }
  61.  
  62. and it works if elements are not distinct.
  63.  
  64. jason "am i a Perl hacker now?" steiner
  65.  
  66. --
  67. `,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`,`
  68. `,` Do you happen to be of the mechanical persuasion? `,`
  69. `,`      Don't be taken in / by weak imitations.      `,`
  70. `,`    A robot and a man got the same limitations.    `,`
  71. `,`                -- Rise Robots Rise                `,`
  72. `,`,`,`,`,`,` steiner@jupiter.cse.utoledo.edu `,`,`,`,`,`
  73.