[Tustep-Liste] nochmal was mit Zahlen

[F.Seck]

Lieber Herr Trauth,

das Beschwören antiker Halbgötter scheint immer noch zu wirken. Jedenfalls 
sind Ihre Lösungen sehr elegant. Nur für den Fall, daß in einem Satz zwei 
Zahlenpaare stehen, wäre wohl noch ein gtu vonnöten.

Herzlichst
Ihr Friedrich Seck
------------------------------------------------
Dr. Friedrich Seck
Erlenweg 18
72076 Tübingen
Telefon: (0 70 71) 96 49 40
Telefax auf Anfrage
-----Ursprüngliche Nachricht----- 
From: Dr. Michael Trauth
Sent: Friday, February 24, 2017 10:27 PM
To: tustep-liste at itug.de
Subject: Re: [Tustep-Liste] nochmal was mit Zahlen

Diskussionsforum Tustep-Liste
Weitere Informationen: www.itug.de
------------------------------------------------------------


Lieber Wieland,

beim Herkules, auf der Liste ist ja richtig was los! Ob das nur mit den 
tollen Tagen zu tun hat?

> ich möchte im Editor nach Zahlen suchen,
> die durch einen Strich verbunden sind und
> die zweite Zahl genau um 1 größer ist als
> die erste (also: 34-35 oder 9-10). Wie kann
> ich auf die erste Zahl verweisen und dann 1
> addieren? Im Wiki habe ich keine Lösung gefunden.

Das ist kein Wunder, denn eine solche Funktion bietet der Editor (noch) 
nicht. Aber wie wär's mit einem kleinen Umweg? Du läßt einfach das folgende 
Progrämmle über die Datei laufen und suchst dann in der Zieldatei bloß noch 
nach der Zeichenfolge '::'; Vorteil: Du könntest damit - nur durch Eingriff 
in die Anweisung 'i1+1' - auch nach Zahlenbereichen suchen, in denen die 
Differenz zwischen den beiden Zahlen genau den Wert '2' (oder '3' oder '4' 
usw.) hat.

#ko,q,z,,+,*
par       {}
zf+   1   |{#}-{#}|
al    1 = zf+
el    1   |?|
xl    1   |-| |
liv   1   i1 i2
rr    1   if (i2.eq.(i1+1)) goto 22; goto 32;
xxb   2   |{\0}{[}-{]}{\0}|::|
erz   2   1
xxb   3   |{\0}{[}-{]}{\0}|!!|
erz   3   1
spn        3
sp2        8 11 11
xxx       |{\0}{[}!!{]}{\0}|-|
*eof


Viele Grüße reihum von

Michael Trauth


p.s. Damit geht's übrigens genauso:

#ko,q,z,,+,*
par       {}
zf+   1   |{#}-{#}|
al    1 = zf+
el    1   |?|
xl    1   |-| |
liv   1   i1 i2
rr    1   if (i2.eq.(i1+1)) goto 22; goto 32;
ers   2   |{\0}{[}-{]}{\0}|
ezf   2   |::|-|
ers   3 = ers   2
ezf   3   |!!|-|
spn        3
sp2        8 11 11
xxx       |{\0}{[}!!{]}{\0}|-|
*eof


------------------------------------------------------------
Tustep-Liste at itug.de
https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste