print "Ingrese la palabra que desea evaluar: "; $palabra = gets().chomp("\n"); $igual, aux = 0, $palabra.length() - 1; 0.step $palabra.length() - 1 do |n|{ if (palabra[n].downcase == $palabra[aux].downcase) {$igual += 1; } $aux -= 1; } if ($palabra.length == $igual){ print "La palabra ingresada si es palíndromo"; else print "La palabra ingresada no es palíndromo"; }