F: Permutieren von Schlagwortketten

Thomas Berger ThB.com at t-online.de
Mo Feb 10 09:15:35 CET 1997


> gibt es eigentlich eine Möglichkeit, Schlagwortketten automatisch
> permutieren zu lassen, oder muß man das immer selbst per Hand machen?

Lieber Herr Kamke,

so geht's:

ak=33."¶"+a

    # Schlagwortketten
    # 33. von der Form
    # 330sMinimal artzGeschichtefAufsatzsammlung¶213¶312
#-a
  %%%<*debug>
#udb c"-|" p{"#-|"} Z
  %%%</debug>
#t{"|6"}
#nr dpq p"x" e1 apq
!u1 +#99z c"" Z #zz 0
#u1 dpp e1 >l App
#u1 dpp b1 e1 >l App
#u1 dpp b2 e1 >l App
#u1 dpp b3 e1 >l App
#u1 dpp b4 e1 >l App
#u1 dpp b5 e1 >l App
#u1 dpp b6 e1 >l App
#u1 dpp b7 e1 >l App
#u1 dpp b8 e1 >l App
#u1 dpp b9 e1 >l App
#nr dpp dpt Z
#+#

#99z      % Sonderbehandlung unpermutiert (geht einfacher,
          % wenn Sie global ? ausblenden: ,"_?_ / _"
!u1 e"¶" b"?" e"" f32 F32
!u1 e"¶" b"" b"?" e"" f32 p" / " F32
!u1 e"¶" b"" b"" b"?" e"" f32 p" / " F32
!u1 e"¶" b"" b"" b"" b"?" e"" f32 p" / " F32
!u1 e"¶" b"" b"" b"" b"" b"?" e"" f32 p" / " F32
!u1 e"¶" b"" b"" b"" b"" b"" b"?" e"" f32 p" / " F32
!u1 e"¶" b"" b"" b"" b"" b"" b"" b"?" e"" f32 p" / " F32
!u1 e"¶" b"" b"" b"" b"" b"" b"" b"" b"?" e"" f32 p" / " F32
!u1 e"¶" b"" b"" b"" b"" b"" b"" b"" b"" b"?" e"" f32 p" / " 
F32
#+#


#(l                                        % Unterprogramm
#ch dpt b"" e"¶" App                      % Schlagwortkette anhängen
#upp +#upq i4,1 y0 b1 e"" =pt Z
#upp +#upq i4,2 b"" e"" =pt Z
#upp +#upq i4,3 b"" b"" e"" =pt Z
#upp +#upq i4,4 b"" b"" b"" e"" =pt Z
#upp +#upq i4,5 b"" b"" b"" b"" e"" =pt Z
#upp +#upq i4,6 b"" b"" b"" b"" b"" e"" =pt Z
#upp +#upq i4,7 b"" b"" b"" b"" b"" b"" e"" =pt Z
#upp +#upq i4,8 b"" b"" b"" b"" b"" b"" b"" e"" =pt Z
#upp +#upq i4,9 b"" b"" b"" b"" b"" b"" b"" b"" e"" =pt Z

#upq +#99z dpq Z
#upt p{" / "} Z
#99z
#upt dpt y0 b1 f32 F32 apt
!upt
#)l

Viele Gruesse 
Thomas Berger





Mehr Informationen über die Mailingliste Allegro