一个看起来很简单的算法问题，有人挑战下吗

leolee82

根据索引数组重新调整数组元素的位置：
数组arr和此数组新的索引arrIndex（如排序后的索引），arr(arrIndex(i))调整到arr(i)，如：arr        =a,d,b,e,c,f,g
i           =0,1,2,3,4,5,6
arrIndex=0,2,4,1,3,5,6
arr        =a,b,c,d,e,f,g (调整后)
要求：不能引入临时数组，不能改变arrIndex，可以引入一些必要的临时变量。引入临时数组或改变arrIndex都很容易实现。




乍看很简单，但没搞定，有没有大神试下。。

ezhou2020

worksheetfunction.index

likaiyihou

创建一个字典，数组索引为key、数组值为item。
对新的索引数组遍历查询字典中的item即可得到新的数组。

大灰狼1976

只要一个临时变量就行，不难的。顺便问下，i是什么，一个数组吗？

准提部林

想在 for i=0 to 6 一次迴圈中完成???
不設新數組, 直接在arr中處理, 你可以再想想有無可能!!!

perfect131

Sub kong()
    arr = Array("a", "d", "b", "e", "c", "f", "g")
    BRR = Array(0, 2, 4, 1, 3, 5, 6)
    s = ""
    For I = 0 To UBound(arr)
        c = WorksheetFunction.Match(I, BRR, 0) - 1
        If InStr("," & s, "," & I & ",") = 0 Then
            s = s & c & ","
            d = arr(c)
            arr(c) = arr(I)
            arr(I) = d
        End If
        Debug.Print arr(I)
    Next
End Sub

leolee82

likaiyihou 发表于 2022-1-21 22:22
创建一个字典，数组索引为key、数组值为item。
对新的索引数组遍历查询字典中的item即可得到新的数组。

用字典占用空间高和效率也低

leolee82

大灰狼1976 发表于 2022-1-22 09:12
只要一个临时变量就行，不难的。顺便问下，i是什么，一个数组吗？

i就是一个索引，是个整数。
我开始也觉得简单，搞了个算法，但换几组数据就不对了

perfect131

perfect131 发表于 2022-1-22 10:26
一个循环arr(i)=arr(arrindex(i))就可以

可以这样
Sub kong()
    arr = Array("a", "d", "b", "e", "c", "f", "g")
    BRR = Array(0, 2, 4, 1, 3, 5, 6)
    s = ""
    For I = 0 To UBound(arr)
        c = WorksheetFunction.Match(I, BRR, 0) - 1
        If InStr("," & s, "," & I & ",") = 0 Then
            s = s & c & ","
            d = arr(c)
            arr(c) = arr(I)
            arr(I) = d
        End If
        Debug.Print arr(I)
    Next
End Sub

likaiyihou

leolee82 发表于 2022-1-22 10:48
用字典占用空间高和效率也低

能解决问题就行，效率也不会差太多