[Tustep-Liste] zusammenfassen von Registereinträgen

Paul Sappler paul.sappler at uni-tuebingen.de
Mon Aug 17 13:27:48 CEST 2009


#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.


More information about the Tustep-Liste mailing list