배열에 항목을 추가하는 가장 빠른 방법

Question

기존 배열에 새 항목을 추가하는 가장 빠른 방법은 무엇입니까?

Dim arr As Integer() = {1, 2, 3} 
Dim newItem As Integer = 4 

은 (이미 항목의 동적 목록과 함께 작업 할 때 오히려 사용해야 알고있는 List, ArrayList 또는 유사한 IEnumerables. 당신이 배열을 사용하는 레거시 코드에 부착하는 경우 그러나 무엇을 할까?)

내가 지금까지 시도했습니다 무엇

:

' A) converting to List, add item and convert back 
Dim list As List(Of Integer)(arr) 
list.Add(newItem) 
arr = list.ToArray() 
' --> duration for adding 100.000 items: 33270 msec 

' B) redim array and add item 
ReDim Preserve arr(arr.Length) 
arr(arr.Length - 1) = newItem 
' --> duration for adding 100.000 items: 9237 msec 

' C) using Array.Resize 
Array.Resize(arr, arr.Length + 1) 
arr(arr.Length - 1) = newItem 
' --> duration for adding 100.000 items: 1 msec 
' --> duration for adding 100.000.000 items: 1168 msec 

A)는 항목이 전체 배열의 두 가지 변환을 추가 할 때마다 수행되기 때문에 매우 느린 것 같습니다. B)는 더 빠를 것 같지만 배열은 ReDim Preserve 동안 한 번 복사됩니다. C)이 시점에서 가장 빠른 것 같습니다. 더 좋은 점이 있습니까? 추가 정보를

Answer 1

사례 C)가 가장 빠릅니다. 확장으로이 갖는

Public Module MyExtensions 
    <Extension()> _ 
    Public Sub Add(Of T)(ByRef arr As T(), item As T) 
     Array.Resize(arr, arr.Length + 1) 
     arr(arr.Length - 1) = item 
    End Sub 
End Module 

사용법 : 다음, 단지 새로운 모듈 파일을 추가 할 것을 알고, 내 작은 해킹과 (지원 '을 @jor 코드를 삽입하지 않은 사람들을 위해

Dim arr As Integer() = {1, 2, 3} 
Dim newItem As Integer = 4 
arr.Add(newItem) 

' --> duration for adding 100.000 items: 1 msec 
' --> duration for adding 100.000.000 items: 1168 msec 

Answer 2

Dim arr As Integer() = {1, 2, 3} 
Dim newItem As Integer = 4 
ReDim Preserve arr (3) 
arr(3)=newItem 

는 Redim

Answer 3

그것은 당신이 삽입 또는 읽기 빈도에 따라 달라집니다. 필요한 경우 배열을 둘 이상 늘릴 수 있습니다.

numberOfItems = ?? 

' ... 

If numberOfItems+1 >= arr.Length Then 
    Array.Resize(arr, arr.Length + 10) 
End If 

arr(numberOfItems) = newItem 
numberOfItems += 1 

또한 A의 경우 필요한 경우 배열을 가져와야합니다.

Dim list As List(Of Integer)(arr) ' Do this only once, keep a reference to the list 
            ' If you create a new List everything you add an item then this will never be fast 

'... 

list.Add(newItem) 
arrayWasModified = True 

' ... 

Function GetArray() 

    If arrayWasModified Then 
     arr = list.ToArray() 
    End If 

    Return Arr 
End Function 

시간이있는 경우 목록으로 모두 변환하고 배열을 제거하는 것이 좋습니다.

* 내 코드가 컴파일되지 않을 수 있습니다.

Answer 4

아무것도 없음 '배열).

Module ArrayExtension 
    <Extension()> _ 
    Public Sub Add(Of T)(ByRef arr As T(), item As T) 
     If arr IsNot Nothing Then 
      Array.Resize(arr, arr.Length + 1) 
      arr(arr.Length - 1) = item 
     Else 
      ReDim arr(0) 
      arr(0) = item 
     End If 

    End Sub 
End Module 

Answer 5

매우 깨끗하지만이 때문에 관하여 :

Dim arr As Integer() = {1, 2, 3} 
Dim newItem As Integer = 4 

arr = arr.Concat({newItem}).ToArray