¿Autómatas finitos?
Yo había pensado en un simple
Código:
FOR palabra IN texto DO
letrasInternas = copy(palabra, 2, length(palabra) - 1);
letrasInternas = revuelve(letrasInternas);
palabra = palabra[1] + letrasInternas + palabra[length(palabra)];
END
Y ver qué tan inteligible o no resultaba aplicado a varios textos.
// Saludos