OpenEuphoria

Re: My first program: sublime (reverse of "extract" function)

• Posted by SocIoDim May 19, 2013
• 2388 views

I realized this, but your code is still not the same as mine. Apparently, you do not notice the multiplication.

Yes, it does not matter already.

Wow! It is excellent idea! I think it is possible to do even better, because input data is one-dimensional sequence of atoms.

function SortWithIndexes(sequence X) 
    for i = 1 to length(X) do 
        X[i] &= i 
    end for 
    X = sort(X) 
    return {vslice(X, 1), vslice(X, 2)} 
end function 
 
sequence Unsorted = {0.5, 0.3, 0.2, 0.4, 0.1} 
sequence Sorted = SortWithIndexes(Unsorted) 
sequence Indexes = Sorted[2] 
Sorted = Sorted[1]