Skill 返回一个数字list的大小排序信息

https://www.cnblogs.com/yeungchie/

• code

procedure(ycSortList(numlist)
    prog((size sort)
        foreach(main numlist
            size = 0
            foreach(num numlist
                if(main > num then
                    ++size
                )
            )
            sort = append1(sort size)
        )
        return(sort)
    )
)

• describe
  
  目的是为了得到list中数字的大小排序，但不希望对list本身重新排序。
  
  运行会返回一个最小值为0间隔为1的连续数字列表，代表list中相同的索引值的数的大小。(index 0 为最小值)

• example

ycSortList(list(2 3 5 4 1))
=>(1 2 4 3 0)