Cách nhanh nhất để thêm một mục vào một mảng

Question

Cách nhanh nhất để thêm một mục mới vào một mảng hiện có là gì?

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

(tôi đã biết rằng khi làm việc với danh sách năng động của các bạn chứ không nên sử dụng một List, ArrayList hoặc tương tự IEnumerables. Nhưng phải làm gì nếu bạn đang mắc kẹt với mã di sản mà sử dụng mảng?)

những gì tôi đã cố gắng cho đến nay:

' 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) có vẻ rất chậm vì mỗi lần một mục được bổ sung thêm hai chuyển đổi của toàn bộ mảng được thực hiện. B) có vẻ nhanh hơn nhưng mảng vẫn được sao chép một lần trong ReDim Preserve. C) có vẻ là nhanh nhất vào thời điểm này. Có điều gì tốt hơn không?

Answer 1

Trường hợp C) là nhanh nhất. Có điều này như một phần mở rộng:

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 

Cách sử dụng:

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 

để biết thêm Redim

Answer 3

Nó phụ thuộc vào mức độ thường xuyên bạn chèn hoặc đọc. Bạn có thể tăng mảng nhiều hơn một nếu cần.

numberOfItems = ?? 

' ... 

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

arr(numberOfItems) = newItem 
numberOfItems += 1 

Cũng cho A, bạn chỉ cần nhận mảng nếu cần.

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 

Nếu bạn có thời gian, tôi khuyên bạn nên chuyển đổi tất cả thành Danh sách và xóa mảng.

* Mã của tôi có thể không biên dịch

Answer 4

Đối với những người không biết chuyện gì tiếp theo, chỉ cần thêm tập tin mô-đun mới và đặt @jor mã (với hack nhỏ của tôi, hỗ trợ " không có gì 'mảng' bên dưới.

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

Not very clean nhưng nó hoạt động :)

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

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