Función Palíndromo, iterativo Curso de Programación Visual Basic

Lección:

Funciones


Ejercicio:

Función Palíndromo, iterativo 8


Objetivo:

Cree una función iterativa para decir si una cadena es simétrica (un palíndromo). Por ejemplo, "RADAR" es un palíndromo.


Código:

Imports System
Public Class exercise130
    Public Shared Function IsPalindrome(ByVal text As String) As Boolean
        text = text.ToUpper()
        Dim begin As Integer = 0
        Dim [end] As Integer = text.Length - 1

        For begin = 0 To [end] - 1
            If text(begin) <> text([end]) Then Return False
            [end] -= 1
        Next

        Return True
    End Function

    Public Shared Sub Main()
        Console.WriteLine(IsPalindrome("radar"))
        Console.WriteLine(IsPalindrome("ratas"))
    End Sub
End Class