Question

How to find the maximum difference between two successive elements in an int list with VB.NET

Answer 1

Imports System
Imports System.Collections.Generic

Public Class MaximumDifferenceBetweenTwoSuccessiveElementsInList_VB_NET
    Public Shared Function MaximumGap(ByVal vec As List(Of Integer)) As Integer
        Dim gap As Integer = 0

        If vec.Count = 0 Then
            Return 0
        End If

        vec.Sort()
        Dim size As Integer = vec.Count

        For i As Integer = 0 To size - 1 - 1
            Dim diff As Integer = vec(i + 1) - vec(i)

            If diff > gap Then
                gap = diff
            End If
        Next

        Return gap
    End Function

	Public Shared Sub Main()
		' 5, 9 -> 4
        Dim lst As List(Of Integer) = New List(Of Integer) From {
            1, 3, 5, 9, 11, 13
        }
	
        Console.WriteLine(MaximumGap(lst))
    End Sub
End Class


 
' run:
'
' 4
'

 

70+ SQL courses for beginners and professionals