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

leolee82

joforn 发表于 2022-1-22 16:25
直接内存交换就好了，根据原有数组的各元素的长度复制指定长度的内存。
当然，最重要的是标识好ArrIndex中 ...

多谢提醒，这个取反操作应该可行，回头我试试

joforn

leolee82 发表于 2022-1-22 16:39
多谢提醒，这个取反操作应该可行，回头我试试

不是应该可以，而是肯定可以。因为我以前这么干过。

时间的音符

...................

时间的音符

Private Function swap(p, a, b)
    tmp = p(a): p(a) = p(b): p(b) = tmp
End Function
Public Sub main()
    nums = Array("a", "d", "b", "e", "c", "f", "g")
    numsIndex = Array(0, 1, 2, 3, 4, 5, 6)
    begin = Asc("a")
    For i = LBound(nums) To UBound(nums)
        Do While Asc(nums(i)) - begin <> i
            Call swap(numsIndex, i, Asc(nums(i)) - begin)
            Call swap(nums, i, Asc(nums(i)) - begin)
        Loop
    Next
End Sub

leolee82

joforn 发表于 2022-1-22 16:45
不是应该可以，而是肯定可以。因为我以前这么干过。

晚上试了下，还是没搞定。最终还是弄了个改变的arrIndex的版本。我也不算新手了，搞10+年VBA了，您有空可以试下。SetValueSub是回调函数,这里忽略就行

1. Sub Array1D_SetIndex_(arr, arrIndex, ByVal l As Long, ByVal r As Long, ByVal SetValueSub As Long)
   
2.     '根据arrIndex调整arr元素顺序
   
3.     '本函数会改变arrIndex
   
4. '    If Array1D_CheckAndSetBoundValid_(arr, l, r) = False Then Exit Sub
   
5.    
   
6.     Dim t, iIndexT As Long, i As Long, iIndexSource As Long
   
7.     Dim diff As Long
   
8.     Dim iIndex As Long
   
9.    
   
10. 
    
11.     diff = l - LBound(arrIndex)
    
12.    
    
13.     For iIndex = l To r
    
14.         If iIndex <> arrIndex(iIndex - diff) Then
    
15.             
    
16.             iIndexT = iIndex
    
17.             
    
18.             '移动arr(iIndexT)到T,把arr(iIndexT)位置留出来
    
19.             'CallBackSub_ SetValueSub, t, arr(iIndexT)
    
20.             t=arr(iIndexT)

复制代码