[Tustep-Liste] Zahlendubletten herausziehen

[Michael Trauth]

Lieber Herr Brunschoen,

zu Ihrer Frage:

> der folgende Ausgangssatz:
> Text !s92 !s100^!3 !s100^!5 !s100^!7 !s130 !s130^!1 !s130^!2
> soll in folgende Form gebracht werden:
> Text !s92 !s100^!3.^!5.^!7 !s130 !s130^!1.^!2

habe ich den Schleifenvorschlag von Herrn Sappler
hier rasch umgesetzt:

#ko,q,z,,+,*
<1s       |^!>/.|^!>/|
zf+   1   |!s<>>/<><1 !s>=03<1|
xxb   1   |!s<>>/<><1 !s>=03<1|!s>=(3-4).<=01|
erz   1   1
spn        3
sp2       11
*eof

Das #ko prueft mit zf+, ob genau zwei Glieder mit
identischen Zahlen hinter !s hintereinanderstehen.
Wenn ja, wird genau *diese* Zeichenfolge genau
einmal ausgetauscht (Parameter XXB + ERZ) und dann
wieder zurueck zur Pruefung gesprungen (ZF+) usw.
Das funktioniert so lange, bis die Bedingung nicht
mehr erfuellt ist, dann wird der Satz ausgegeben
(das ist der Sprung bei SPN). Das ist schon alles.

Viele Gruesse reihum von

Michael Trauth


---------------------------------------------------------------
Dr. Michael Trauth                  e-mail: trauth at uni-trier.de
Rechenzentrum                       office: Tel. 0651-201-3413
der Universitaet                            Fax  0651-201-3921
Universitaetsring                secretary: Tel. 0651-201-3417
D-54286 Trier
---------------------------------------------------------------