🚀 go-pugleaf

"F" <esnewsfQuItAeStO@EsToCaMbIeNyahoo.es> escribi� en el mensaje 
news:ccN1f.4441850$I96.7525036@telenews.teleline.es...
> Hola, necesito comprobar que una expresion matematica este bien formada.
>
> por ejemplo 1+2+3 esta bien 1*/3 no
>
> Para ello, cuando no hay parentesis es bastante facil

...

Muchas gracias a todos por las contestaciones, me ha habeis dichos cosas muy 
interesantes, que mirare con mas detenimiento.  (ma�ana voy a intenar 
hacerlo con perlredescent).

finalmente me decidi por implementarlo manualmente, como un especie de 
automata a pila, lo dejo por si a alguien le sirve, falta implementar las 
funciones (sin, cos, tan), pero es algo bastante facil, similar a los 
parentesis.

Un saludo y gracias




$num   = "-?\\d*\\.?\\d+";
$op    = '\*|\/|\%|\+|\-';
$TRUE  = 1;
$FALSE = 0;

sub verificar {
    $expr = shift();

    #Inicializo varables
    $expr2    = $expr;
    $correcta = $TRUE;
    $q        = 0;
    @pila     = ("x");

    # 0--> S
    # 1--> N
    # 3 --> final
    # S::= num$|numN|(S
    # N::= $opS|)$|)N
    #
    #

    print "$expr2: ";
    while ( $q != 3 ) {
        print "q$q ";
        if ( ( $q == 0 ) && ( $expr2 =~ s/^\s*$num\s*$//i ) ) {
            $q = 3;
            last;
        }
        elsif ( ( $q == 0 ) && ( $expr2 =~ s/^\s*$num\s*//i ) ) {
            $q = 1;
        }
        elsif ( ( $q == 0 ) && ( $expr2 =~ s/^\s*\(\s*// ) ) {
            $q = 1;
           unshift @pila, "(";
        }
        elsif ( ( $q == 1 ) && ( $expr2 =~ s/^\s*$op\s*// ) ) {
            $q = 0;
        }
        elsif ( ( $q == 1 ) && ( $expr2 =~ s/^\s*\)\s*$// ) ) {
            $p = shift(@pila);
            $q = 3;
            if ( $p ne "(" ) {
              print "$p ";
                $correcta = $FALSE;
                last;
            }
        }
        elsif ( ( $q == 1 ) && ( $expr2 =~ s/^\s*\)\s*// ) ) {
            $p = shift(@pila);
            $q = 1;
            if ( $p ne "(" ) {
                print "$p ";
                $correcta = $FALSE;
                $q        = 3;
                last;
            }
        }
        else {
            $q        = 3;
            $correcta = $FALSE;
            last;
        }

    }

    $p=shift(@pila);
    print "$p \n";
    if ($correcta eq $FALSE || $p ne "x"){
      return 0;
    }else {
      return 1;
    }

}

print "introduce la expresion aritmetica: ";
$expr=<STDIN>;
chomp($expr);

$compro = verificar($expr);

print "La comprobacion es $compro\n";