Imports System
Public Module Module1
Public Function longestCommonPrefix(arr() As String) As String
Dim size As Integer = arr.Length
If (size = 0) Then
return ""
End If
If (size = 1) Then
return arr(0)
End If
Array.Sort(arr)
Dim min_length As Integer = Math.Min(arr(0).Length, arr(size - 1).Length)
Dim i As Integer = 0
Do While (i < min_length AND arr(0)(i)= arr(size - 1)(i))
i = i + 1
Loop
return arr(0).Substring(0, i)
End Function
Public Sub Main()
dim arr() As String = {"cartography", "carburettor", "carbonating"}
Console.WriteLine("Longest common prefix: " + longestCommonPrefix(arr))
End Sub
End Module
' run:
'
' Longest common prefix: car
'
