Bir Diziye Öğe eklemenin en hızlı yolu

Question

Varolan diziye yeni bir öğe eklemenin en hızlı yolu nedir?

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

(Zaten öğelerin dinamik listesi ile çalışırken oldukça kullanması gerektiğini biliyorum bir List, ArrayList veya benzeri IEnumerables. Eğer diziler kullanan eski koduna takılıp Ama ne yapmalı?)

Şimdiye kadar denedim ne

:

' 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) bir öğe bütün dizinin iki dönüşüm eklenen her zaman yapılır beri çok yavaş görünüyor. B) daha hızlı görünüyor ama hala dizi ReDim Preserve sırasında bir kez kopyalanır. C) bu noktada en hızlı gibi görünüyor. Daha iyi bir şey var mı? Daha fazla bilgi için

Answer 1

Senaryo C derlemek olmayabilir Kodum hızlı olduğunu. bir uzantısı olarak bu Having:

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 

Kullanımı: Bir sonraki, sadece yeni modül dosyası eklemek biliyorum ve benim küçük saldırıya uğramış ile (destekleyici '@jor kodu koymadı olanlar için

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

Sizin eklemek veya okumak ne sıklıkta bağlıdır. Diziyi gerektiğinde birden fazla arttırabilirsiniz.

numberOfItems = ?? 

' ... 

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

arr(numberOfItems) = newItem 
numberOfItems += 1 

Ayrıca A için, gerekirse diziyi almanız gerekir. Zamanınız varsa

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 

, sana her Liste ve diziler kaldırmak dönüştürmek öneririz.

*)

Answer 4

hiçbir şey 'dizi) aşağıda.

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

çok temiz ama Saygısızlık :)

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

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