Foro - Perl en Español

"Hola"

Necesito ayuda con un proyecto, el cual consiste en lo siguiente:
Se ingresan una operación aritmética como por ejemplo esta (8-3)*(4*2).

Eso lo ingresamos a un arreglo, yo lo coloco en el arreglo de la siguiente forma @Dats=split("",$cadena);
con eso ya tengo carácter en un arreglo. Pero lo que nos piden es:



entonces primero tiene que buscar donde estén los paréntesis para operar lo que se encuentra dentro de ellos.

Adentro de los paréntesis revisa, el primero es número y como lo es lo mete en un arreglo (nos explicaron que pasa a ser posfijo) después se espera un signo y ese signo lo ingresa a una variable (si no es signo tiene que mostrar error) después del signo se espera un número y lo mete al mismo arreglo del anterior, en la siguiente posición del arreglo se ingresa el signo que se guardó en la variable.

Para que se entienda mejor quiere lo siguiente:

Que dé esto


Pase a esto


ya teniendo el Posfijo tomaría el primero con utilizando pop y el segundo estos dos datos se ingresarían a una variable y ahora se revisa qué signo es el que está en segunda posición con un if() pienso yo. Ya teniendo este valor se ingresa a otro arreglo vertical (pileta) que seria algo así



ahora realizaría lo que sigue y quedaría así



para meterlo sería con un push(), verdad.
El último que entra es el primero que sale.

Entonces estos dos valores se les asigna a dos variables
T1 =8 y T2 = 5

entonces ahora solo verificaría el último signo en el posfijo que es "*" y multiplica las variables T1 * T2 y el resultado lo ingresa otra vez en el arreglo anterior



y por último se imprimiría 40.

Una restricción es que solo se va a ingresar número de 0 a 9 y las operaciones a realizar pueden ser sin paréntesis.

Si alguien me pudiera ayudar le estaría muy agradecido porque no sé cómo hacer el algoritmo, tal vez me pueden hacer el favor de explicarme cómo hacerlo.

"Si no entienden algo de lo que coloqué, por favor, dígame"

¡Muchas Gracias!

Bienvenido a los foros de Perl en Español, DDTenas.

Primero, decirte que este tema ya salió ayer: Evaluador de expresiones aritméticas .

Segundo, comentarte que la solución propuesta por ti, basada en pilas (piletas), también es muy común (de hecho, es una forma de representar un árbol, como se comenta en el otro hilo).

La solución que muestras de la notación postfija convirtiendo desde la notación infija, es cuestión de ir leyendo la pila (pileta) desde el último operando introducido, y reduciendo cada operación y sus operandos, al resultado, y dejando este resultado en la pila para el resto de operandos que queden más abajo en esa pila (tienes el algoritmo RPN en la página de Wikipedia que te enlacé antes).

Hay un problema con todo esto... los paréntesis. ¿Por qué? Pues porque los paréntesis modifican el orden de ejecución en la expresión matemática: primero hay que ejecutar las expresiones que están más anidadas (profundas), e ir subiendo hacia el resto de expresiones. Entonces, en la pila, se debería reflejar también esto (los paréntesis), como caracteres que delimitan el inicio y fin de subexpresiones: cuando encuentras un paréntesis de apertura, lo agregas a la pila. Sigues resolviendo. Cuando encuentres el paréntesis de cierre, eliminas los paréntesis y dejas solo el resultado de la expresión que hubiera en medio.

Otra forma es la de ir resolviendo la expresión a medida de que se va leyendo. Quiero decir que vas leyendo carácter a carácter, y cuando llegas a un punto que sabes que ha terminado una subexpresión, la resuelves y dejas el resultado en la pila. Si llegas a unos paréntesis, vas agregando expresiones en la pila, para cuando llegues a los paréntesis de cierre.

Prueba a escribir algo de código y nos lo enseñas.

Actualización: otra forma cómoda de hacerlo es usando algún módulo de Perl ya hecho, como por ejemplo Math::Expression::Evaluator.

Gracias por la ayuda

Solo con una consulta:
Tengo aquí mi código para pasar de infijo a posfijo, ya que lo realicé en Java, pero no sé por qué no me funciona. Tal vez me equivoqué en algunas cosas de Java que no se manejan en Perl, será que me pudieran ayudar a ver qué tengo malo. Si me podrían dar una idea para realizar la operación de posfijo para obtener el resultado se los agradecería.

Estos son los problemas que he encontrado

* líneas 12 y 13. En Perl, no se suelen declarar variables de esa manera. Si no estás usando el modo estricto (ver al final), entonces es mejor no poner nada: las variables serán creadas en el momento de ser usadas

* línea 23. @letras almacena las letras de la $cadena. NO su representación ASCII. Lo correcto sería
* líneas 23, 25, 32, 35, 40, 49, 53, 68 y 87. Es $i, no i.

* líneas 25, 47, 64 y 77. Es $pos, no pos.

* líneas 32 y 41. Es siempre mejor usar 'or' que '||', y 'and' que '&&', por cuestiones de precedencia de operadores.

* líneas 35, 45, 46, 49, 53, 61, 63, 68 y 77. Es $cola, no cola.

* líneas 107, 110, 114 y 118. Las comparaciones con caracteres hay que realizarlas con los operadores de comparación 'eq', 'ne', 'gt', 'lt', 'ge' y 'le', no con los operadores de comparación numéricos. Debes cambiar todos los '==' por 'eq'.


Recomendaciones:
* usa siempre 'use warnings;' para que Perl te ayude a programar bien en Perl.
* usa siempre 'use strict;' para que Perl te obligue a programar bien en Perl.