Using perl Syntax Highlighting
if ( $pol =~ /^[y]{1}[=]{1}[x]{1}[2]{1}[+]{1}[0-9]{1, }[x]{1}[+]{1}[0-9]{1, }$/
|| $pol =~ /^[y]{1}[=]{1}[0-9]{1, }[x]{1}[3]{1}[-]{1}[0-9]{1, }[x]{1}[2]{1}[0-9]{1, }[x]{1}$/ ) {
print "Polinomio valido";
}
else {
print "Polinomio no valido";
}
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Using perl Syntax Highlighting
if ( $pol =~ /^y=x2\+[0-9]{1, }x\+[0-9]{1, }$/
|| $pol =~ /^y=[0-9]{1, }x3-[0-9]{1, }x2[0-9]{1, }x$/ ) {
print "Polinomio valido";
}
else {
print "Polinomio no valido";
}
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Using perl Syntax Highlighting
if ( $pol =~ /^y=x2\+\d+x\+\d+$/
|| $pol =~ /^y=\d+x3-\d+x2\d+x$/ ) {
print "Polinomio valido";
}
else {
print "Polinomio no valido";
}
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Los dos polinomios de muestra tienen componente
x3, por lo que la primera parte del if() no coincidirá.
En cuanto a la segunda parte, falta un signo '+' entre el
x2 y el
x.
Este patrón reconoce los dos polinomios:
Using perl Syntax Highlighting
@polys = qw( y=x3+x+3 y=6x3-6x2+5x );
foreach $pol (@polys) {
if ( $pol =~ /^y=\d*x3([-+]\d+x2)?\+\d+x(\+\d+)?$/ ) {
print "Polinomio válido";
}
else {
print "Polinomio no válido";
}
}
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
