Hallo Martin,
ja, Marci. Ist doch logisch ;)
Ich identifiziere folgende Regeln (und übersehe vermutlich Ausnahmen):
- Sei
$stringdie zu inkrementierende Zeichenkette. - Setze
$paufLEN($string)-1. - Ist
$p == -1, beende die Operation mit"1"als Ergebnis. - Setze
$cauf$string[$p] - Ist
$cein Match für/[0-8A-Ya-y]/, inkrementiere seinen Zeichencode um 1, schreibe$cnach$string[$p]und beende die Operation mit$stringals Ergebnis. - Ist
$c == "9", setze$cauf"0" - Ist
$c == "Z", setze$cauf"A" - Ist
$c == "z", setze$cauf"a" - Schreibe
$cnach$string[$p] - Setze
$pauf$p - 1. Solange$pnicht negativ ist, setze bei 4. fort. - Ist
$c == "a"oder$c == "A", setze$stringauf$c . $string. Andernfalls setze$stringauf"1" . $string. - Beende die Operation.
Testfragen: Nenne die Nachfolger von "19Z", "1Z99", "zzz", "zzZ" und "Zzz".
Rolf
--
sumpsi - posui - obstruxi
sumpsi - posui - obstruxi