Threaded Mode | Linear Mode

Albert Chan · (This post was last modified: 10-31-2024 09:18 PM by Albert Chan.)

Note that Python has 0-based array.
If code were for Python use, I would assign r back to the ranking list, instead of r+1

Lua array is 1-based, and probably easier to port to HP Prime

Code:

function ranking(m)

    local m2, m3, lo, hi = {}, {}, 1, #m

    for i=1, hi do m2[i] = {m[i],i} end

    table.sort(m2, function(x,y) return x[1]<y[1] end)

    for i=1, hi do

        local j = i+1

        if i<hi and m2[i][1]==m2[j][1] then continue end

        local r = (lo+i)/2

        for k=lo, i do m3[m2[k][2]] = r end

        lo = j

    end

    return m3

end

lua> pprint( ranking{1,3,5,1,4,5,6,1} )
{ 2, 4, 6.5, 2, 5, 6.5, 8, 2 }