[Tustep-Liste] zusammenfassen von Registereinträgen

[Kuno Schälkle]

Lieber Herr Kollatz,

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
es ist wahrscheinlich ganz einfach,
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

vermutlich eher nicht.

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Wie mache ich mit TUSCRIPT aus
SET zeilealt="3'5'6'7'9'10"
möglichst elegant
SET zeileneu="3'5-7'9-10"
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

mir ist jedenfalls nichts einfacheres eingefallen:

$$ MODE TUSCRIPT
SET werte = "3'5'6'7'9'10"
SET hilf = APPEND (werte, "999999999")
SET rest = REMOVE (hilf, 1, wert_1)
SET wert_2 = wert_1, wert_3 = wert_2 + 1
SET werte = ""
LOOP wert = rest
   IF (wert.NE.wert_3)  THEN
      SET werte = APPEND (werte, wert_1)
      IF (wert_1.NE.wert_2) SET werte = CONCAT (werte, "-", wert_2)
      SET wert_1 = wert
   ENDIF
   SET wert_2 = wert, wert_3 = wert_2 + 1
ENDLOOP

Vielleicht gehts aber doch einfacher.
Ich bin gespannt auf andere Lösungen.

Herzliche Grüße
Kuno Schaelkle