Hi Monks,

How can I restore the original order of an array after sorting and applying a function on the values of an array? For instance:

@myarray = (2.5 ,4.8, 3.2, 8.5, 8.2, 12.5);

Sort numerically in a descending order.

@myarraydecsend(12.5, 8.5, 8.2, 4.8, 3.2, 2.5)

Multiply each number by 6 (array size) and divide the results by array size at each iteration array size decreases by 1 (count down). like the example

@myopperatedarray( 12.5*6/6, 8.5*6/5, 8.2*6/4 …..2.5*6/1)

You would get (12.5, 10.2, 12.3, 9.6, 9.6, 15) 

map to original data    [6]   [4]   [5]   [2]   [3]  [1]

[download]

Now restore the original order.Something like hash key sort to get:

(15, 9.6 , 9.6, 10.2, 12.3, 12.5)

In reply to Restore the original order of an array after sort and performing some funchtion on array values by sesemin

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.