[Tustep-Liste] zusammenfassen von Registereinträgen

[Paul Sappler]

#ma,*
$$ mode tuscript
set alt = "1'3'4'5'7'9'10'12"
set wv = -100, neu = ""
loop j = alt
  set wv = wv+1
  if (#j .eq. #wv) then
    set neu = append (neu,"'.",j)
  else
    set neu = append (neu,"'",j)
  endif
  set wv = j
endloop
set neu = exchange (neu,";'.<>>/<>;'.;;'.;-;")
print alt
print neu
*eof
Auch nicht wirklich eleganter. Freundliche Grüße, P.S.