Najszybszy sposób dodawania elementu do tablicy

Question

Jaki jest najszybszy sposób dodania nowego elementu do istniejącej macierzy?

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

(już wiem, że podczas pracy z dynamicznej listy elementów należy raczej używać List, ArrayList lub podobny IEnumerables. Ale co zrobić, gdy utkniesz do starszych kod, który używa tablic?)

Co próbowałem dotąd:

' 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) wydaje się bardzo powolny, ponieważ za każdym razem element jest dodawany dwie konwersje całej tablicy są zrobione. B) wydaje się szybszy, ale nadal tablica jest kopiowana jeden raz podczas ReDim Preserve. C) wydaje się być najszybszy w tym momencie. Czy jest coś lepszego?

Answer 1

sprawie C) jest najszybszy. Mając to jako rozszerzenie:

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 

Zastosowanie:

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 

uzyskać więcej informacji Redim

Answer 3

To zależy od tego, jak często wkładać ani czytać. W razie potrzeby możesz zwiększyć tablicę o więcej niż jeden.

Również w przypadku A, w razie potrzeby wystarczy uzyskać tablicę.

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 

Jeśli masz czas, proponuję przekonwertować go na listę i usunąć tablice.

* Mój kod nie może skompilować

Answer 4

Dla tych, którzy nie wiedzą, co dalej, po prostu dodać nowy plik modułu i umieścić @jor kod (z moją małą Hacked, wspieranie " nic "tablicy" poniżej.

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

Nie bardzo czyste, ale to działa :)

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

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