Imports System
Imports System.Text.RegularExpressions
Class Program
Public Shared Function IsPalindrome(ByVal str As String) As Boolean
Dim normalizedStr As String = Regex.Replace(str, "\s+", "").ToLower()
Dim reversedArr As Char() = normalizedStr.ToCharArray()
Array.Reverse(reversedArr)
Dim reversedStr As String = New String(reversedArr)
Return normalizedStr = reversedStr
End Function
Public Shared Sub Main()
Console.WriteLine($"Is palindrome: {IsPalindrome("A man a plan a canal Panama")}")
Console.WriteLine($"Is palindrome: {IsPalindrome("abcDefg")}")
End Sub
End Class
' run:
'
' Is palindrome: True
' Is palindrome: False
'