[NPRG052] Programovací jazyk Perl - 27.01.2015
Napsal: 27. 1. 2015 22:31
Program k přečtení (snad bez chyby):
Program k napsání:
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
";
}
Na vstupu je infixový výraz s operátory +,- a * a s celými čísly. Vyhodnoťe ho.
Výsledek za 3.