<html>
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p>LIeber Wieland,</p>
<p>ein Klecks Senf aus Berlin sollte nun doch nicht mehr fehlen.</p>
<p>Hier eine Lösung mit TUSCRIPT. Wegen des Kommentars ist's etwas
länger geworden.<br>
</p>
DATEN: <br>
Ende des 16. Jh.von 1596 1678-1679 8 <br>
4-5 17 5-6 <br>
nix <br>
nix <br>
<br>
ERGEBNIS: <br>
Ende des 16. Jh.von 1596 1678-1679 8 +++ Paare: 1678-1679 <br>
4-5 17 5-6 +++ Paare: 4-5 und 5-6 <br>
<p>----------------------------<br>
</p>
<font face="Courier 10 Pitch"><br>
<br>
<font face="Courier 10 Pitch">$$MODE TUSCRIPT, {}<br>
</font></font><font face="Courier 10 Pitch"><font face="Courier 10
Pitch"><font face="Courier 10 Pitch">ACCES RECORDS $quelle
sq.zq/uq, text</font> </font><br>
ACCESS z: WRITE/RECORDS $ziel sq.zq/uq, text <br>
-Differenz, die zwischen Zahl 1 und Zahl 2 bestehen soll. <br>
SET diff=1 <br>
LOOP READ/NEXT/EXIT q <br>
- Im Satz w<font face="Courier 10 Pitch">e</font>rden
Zahlenpaare n-n gesucht. <br>
- Sie stehen dann in der Variablen zahlP <br>
SET zahlen = STRINGS (text,"|{#}-{#}|",zahlP,1,0,1,0,"'")<br>
- Wenn nicht gefunden wurde, wird der nächste Satz eingelesen <br>
IF (zahlen=="") CYCLE <br>
- Die Teilzeichenfolgen der Variable zahlen werden abgearbeitet<br>
LOOP/CLEAR lp = zahlen <br>
- Trennen der Zahlen <br>
nix = SPLIT (lp,":-:",n1,n2) <br>
- n1 wird um diff erhöht <br>
SET n1 = n1+diff<br>
- Auf der Variablen zahlen werden die Treffer gesammelt. <br>
IF (#n1==n2) SET zahlen = APPEND (zahlen," und ",lp) <br>
ENDLOOP <br>
IF (zahlen=="") CYCLE <br>
- Nur wenn es Treffer, werden sie an den Satz angehängt und
ausgegeben <br>
SET text= CONCAT (text," +++ Paare: ",zahlen ) <br>
WRITE z <br>
ENDLOOP<br>
</font><font face="Courier 10 Pitch"><font face="Courier 10 Pitch">ENDACCESS/PRINT
q</font></font><br>
<font face="Courier 10 Pitch"><font face="Courier 10 Pitch"><font
face="Courier 10 Pitch">ENDACCES<font face="Courier 10 Pitch">S/PRINT
z</font></font></font> </font><br>
<font face="Courier 10 Pitch"></font>
<p>--------------------------------------------------------------<br>
</p>
Grüße aus Berlin<br>
Gottfried Reeg<br>
<p><br>
</p>
<br>
<div class="moz-cite-prefix">Am 24.02.2017 um 22:42 schrieb Dr.
Michael Trauth:<br>
</div>
<blockquote
cite="mid:HE1PR0202MB276272BD5A5D6F2DE2F8765EFB520@HE1PR0202MB2762.eurprd02.prod.outlook.com"
type="cite">
<pre wrap="">Diskussionsforum Tustep-Liste
Weitere Informationen: <a class="moz-txt-link-abbreviated" href="http://www.itug.de">www.itug.de</a>
------------------------------------------------------------
Lieber Wieland,
kaum hatte ich die Sendetaste meines letzten Postings gedrückt, da fiel mir auch schon ein, wie mein #kopiere-Snippet noch einmal um drei Zeilen verschlankt (und auch ein bißchen kryptischer gestaltet) werden kann. Bitte sehr:
#ko,q,z,,+,*
par {}
zf+ 1 |{#}-{#}|
al 1 = zf+
liv 1 i1 i2
rr 1 if ((iabs(i2)).eq.(i1+1)) goto 22; goto 32;
xx 2 |{\0}{[}-{|}{#}*|::{=2=}|
xx 3 |{\0}{[}-{|}{#}*|!!{=2=}|
spn 3
sp2 8 11 11
xxx |{\0}{[}!!{]}{\0}|-|
*eof
Viele Grüße reihum von
Michael Trauth
------------------------------------------------------------
<a class="moz-txt-link-abbreviated" href="mailto:Tustep-Liste@itug.de">Tustep-Liste@itug.de</a>
<a class="moz-txt-link-freetext" href="https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste">https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste</a></pre>
</blockquote>
<br>
</body>
</html>