[SOLUCIONADO] PHP OO Codificación de textos de mi infancia cambiando letras de lugar

[bersonzini]

Amigos,
estoy algo atascado y le pido una mano, he visto que sus mentes brillan en php.

Estoy queriendo hacer un traductor de mi lenguaje en clave que usabamos de chicos.

Les cuento las reglas:
1- las vocales cambian "a" por "u", "e" por "o", "i" queda igual, "o" por "e" y "u" por "a".
2- las consonantes cambian su orden dentro de la misma palabra.

Ejemplo:
la palabra "abeja" queda "ujobu"

estoy intentandolo con:

explode e implode:

$cadena = "las bejan hacen miel";
$clave = explode(" ","$cadena");
// y después
$resultado = implode(" ", $clave);

Tambien con strien:

$palabra = $clave[0];
for($i=0;$i<strlen($palabra);$i++){
if($palabra[$i] == "a"){ $palabra[$i] = "u"; }
if($palabra[$i] == "e"){ $palabra[$i] = "o"; }
if($palabra[$i] == "o"){ $palabra[$i] = "e"; }
if($palabra[$i] == "u"){ $palabra[$i] = "a"; }
}
echo $palabra;

tengo trabas con que me vuelve a traducir lo ya traducido y no veo el resultado en las vocales, y con que no se como mantener el correcto orden de las consonantes.

Si a alguno le divierte ayudarme le agradeceré.

[bersonzini]

ya logre lo de las vocales
con

$cadena = "las abejas hacen miel";
$cadena=strtr($cadena,"aeou","uoea");
echo $cadena;

me falta dar vuelta las consonantes

[bersonzini]

con esto separo las palabras
$cadenapalabras = explode(" ","$cadena");

con esto separo las letras de cada palabra
$cadenaletras = chunk_split($cadena,1, "");

lo que necesitaria es identificar cuales son consonantes e invertir el orden

[mortiprogramador]

<saludos>
Interesante ejercicio, pregunto algo, que regla manejaban si no hay consonante a cambiar?
Por ej en la palabra "hacen", si entiendo el concepto, quedaría "cuhon"
Sin embargo la n final no cambia, o bueno, por lo menos eso creo, o que hacían en esos casos?

Estoy realizando otras pruebas, y dependiendo de la respuesta que des,
haría cambios al mismo o lo publico como lo tengo
</saludos>

[mortiprogramador]

<saludos>
Pues en vista que no hubo answer, por ahora publico lo que llevo

Código PHP:

<?php
    $cadena = 'las abejas hacen miel';
    $vocalesiniciales = 'aeouáéóú';
    $vocalesfinales = 'uoeaúóéá';
    $cadena=strtr($cadena,$vocalesiniciales,$vocalesfinales);
    $cadena.'<br>';
    $cadenapalabras = explode(' ',$cadena);
    $test = array('a','e','i','o','u','á', 'é', 'í', 'ó', 'ú');
    $posicionesacambiar = array();
 
    for( $i = 0; $i < sizeof($cadenapalabras); $i++ )
    {
        $k = 0;
        for($j = 0; $j < strlen    ($cadenapalabras[$i]); $j++)
        {
            if( !array_search($cadenapalabras[$i][$j], $test ))
            {    
                $posicionesacambiar[$i][$k] = $j;
                $k++;
            }
        }    
        
        for($j = 0; $j < sizeof($posicionesacambiar); $j++)
        {    
            if( $j == 0 )
                $l = 0;
 
            if( $j % 2 == 0  && strlen($cadenapalabras[$i]) > 2 )
            {        
                if ( $l == 0 || $l > 0 && strlen($cadenapalabras[$i]) % $l == 0 && $l < sizeof($posicionescambiar[$i]) )
                {
                    $tmp = $cadenapalabras[$i][$posicionesacambiar[$i][$l]];            
                    $cadenapalabras[$i][$posicionesacambiar[$i][$l]] = $cadenapalabras[$i][$posicionesacambiar[$i][$l+1]];
                    $cadenapalabras[$i][$posicionesacambiar[$i][$l+1]] = $tmp;        
                    $l++;            
                }            
            }
                
        }
    }
    echo $salida = implode(' ', $cadenapalabras);
?>
 

Suerte con eso!!!

</saludos>

[bersonzini]

Iniciado por mortiprogramador

<saludos>
Pues en vista que no hubo answer, por ahora publico lo que llevo

Código PHP:

<?php
    $cadena = 'las abejas hacen miel';
    $vocalesiniciales = 'aeouáéóú';
    $vocalesfinales = 'uoeaúóéá';
    $cadena=strtr($cadena,$vocalesiniciales,$vocalesfinales);
    $cadena.'<br>';
    $cadenapalabras = explode(' ',$cadena);
    $test = array('a','e','i','o','u','á', 'é', 'í', 'ó', 'ú');
    $posicionesacambiar = array();
 
    for( $i = 0; $i < sizeof($cadenapalabras); $i++ )
    {
        $k = 0;
        for($j = 0; $j < strlen    ($cadenapalabras[$i]); $j++)
        {
            if( !array_search($cadenapalabras[$i][$j], $test ))
            {    
                $posicionesacambiar[$i][$k] = $j;
                $k++;
            }
        }    
        
        for($j = 0; $j < sizeof($posicionesacambiar); $j++)
        {    
            if( $j == 0 )
                $l = 0;
 
            if( $j % 2 == 0  && strlen($cadenapalabras[$i]) > 2 )
            {        
                if ( $l == 0 || $l > 0 && strlen($cadenapalabras[$i]) % $l == 0 && $l < sizeof($posicionescambiar[$i]) )
                {
                    $tmp = $cadenapalabras[$i][$posicionesacambiar[$i][$l]];            
                    $cadenapalabras[$i][$posicionesacambiar[$i][$l]] = $cadenapalabras[$i][$posicionesacambiar[$i][$l+1]];
                    $cadenapalabras[$i][$posicionesacambiar[$i][$l+1]] = $tmp;        
                    $l++;            
                }            
            }
                
        }
    }
    echo $salida = implode(' ', $cadenapalabras);
?>
 

Suerte con eso!!!

</saludos>

Hola mortiprogramador, muchas gracias por tu respuesta
me das varias ideas nuevas, sin embargo no lo logro aún.

funciona perfecto con palabra cortas, pero te detallo el error:
todas las consonantes se cambian de lugar (y si fueran impares la del medio quedaría en la misma posición)

ejemplo de palabras:
muercielago -> galciorume
hacen -> nucoh

'las abejas hacen miel para el murcielago'
tu codigo traduce: sul ujobus cuhon liom rupu ol amrcioluge
y sería: sul usejub nuhoc liom rupu ol galciorume

me ayudan mucho tus respuestas

[dashtrash]

Suponiendo espacio como único separador.Agregar separadores no sería complicado.

Código PHP:

$cad='las abejas hacen miel para el murcielago';
$palabras=explode(" ",$cad);
$vtrans=array("a"=>"u","e"=>"o","i"=>"i","o"=>"e","u"=>"a");
 
$kvocal=array_keys($vtrans);
foreach($palabras as $cur)
{
   $vocales=array();
   $consonantes=array();
   $positions=array();
 
   $len=strlen($cur);
   for($k=0;$k<$len;$k++)
   {
       $c=$cur[$k];
       $positions[$k]=(in_array($c,$kvocal)?1:0);
       if($positions[$k])
          array_push($vocales,$c);
       else
          array_unshift($consonantes,$c);
   }
   $newWord="";
   for($k=0;$k<$len;$k++)
      $newWord.=($positions[$k]?$vtrans[array_shift($vocales)]:array_shift($consonantes));
   
   $words[]=$newWord;
 
}
echo implode(" ",$words);
 

[mortiprogramador]

<saludos>
Pues por eso preguntaba yo las reglas, cosa que no has respondido
Por otra parte, el código implementado por dashtrash se ve tanto mejor,
realiza tus pruebas nuevamente con esa optimización!
</saludos>

[bersonzini]

Muchas gracias, esta de perlas.
Dejo solo una idea: las palabras consonantes las traducíamos en singular y les poníamos apóstrofe + s al final.
Ejemplo:
murciélago -> galciorume
muercielagos -> galciorume's
Pero lo veo complicado ya que no es facil detectas las palabras en plural

[bersonzini]

cambie algo
en vez de explode uso split
$palabras=split("[\t\n\r;, ]+",$cad);
entonces puedo meter el codigo con puntuacion y enter.

[bersonzini]

Dashtrash es genial lo que hiciste!

hice otro cambio
$vtrans=array("a"=>"u","e"=>"o","i"=>"i","o"=>"e", "u"=>"a");
lo cambie a
$vtrans=array("a"=>"u", "A"=>"U","e"=>"o", "i"=>"i","o"=>"e","u"=>"a", "E"=>"O", "I"=>"I","O"=>"E","U"=>"A");
y ahora puedo escribir con mayusculas, lo que no puedo lograr es usar acentos, me lo haces????