Kód: Vybrat vše
while (<>) {
chomp;
print /^((\d+ | \((?1)\))([+*-](?2))* )$/ ? "OK
" : "KO
";
}
Na vstupu je infixový výraz s operátory +,- a * a s celými čísly. Vyhodnoťe ho.
Výsledek za 3.
Kód: Vybrat vše
while (<>) {
chomp;
print /^((\d+ | \((?1)\))([+*-](?2))* )$/ ? "OK
" : "KO
";
}