XProfan

WindowTitle "Lexikographisch aufsteigende Permutation eingegebener Worte"
' (F) P. Specht 2011, V1.02beta in XProfan11.2a free, ohne Gewähr!
Declare t$,t$[],n&,k&,j&,u&,v&,e%,z&,q$

WHILE 1:CLS:e%=1:z&=0:q$=" "

    print " Hinweis: Wirklich ALLE Permutationen werden hier nur dann geliefert, wenn"
    print " die Elemente zu Beginn in lexikalisch aufsteigender Folge angegeben werden!    "
    print " Beispiel: 1|3|3|4|4.. oder Alfons Berta Charly Emil Gustav"
    print " Eingabe der Elemente bitte mit Leerzeichen oder | als Trenner:\n"
    input t$:print:t$=trim$(t$):t$=translate$(t$,"  "," "):case instr("|",t$):q$="|"
    t$=translate$(t$," ","|"):t$[]=explode(t$,"|"):n&=SizeOf(t$[])
    print "--- Start ab der angegebenen Lexikal-Permutation ---"

    While e%

        inc z&
        casenot q$="|":print " ";

        WhileLoop n&

            print t$[&Loop-1];:case &Loop=n&:continue
            print q$;

        EndWhile

        print

        if n&<2:e%=0:break:endif

            k&=n&-2

            While t$[k&]>=t$[k&+1]

                Dec k&
                case k&<0:break

            EndWhile

            if k&<0:e%=0:break:endif

                j&=n&-1

                While t$[j&]<=t$[k&]

                    dec j&

                EndWhile

                t$=t$[k&]:t$[k&]=t$[j&]:t$[j&]=t$
                u&=k&+1:v&=n&-1

                While u&<v&

                    t$=t$[u&]:t$[u&]=t$[v&]:t$[v&]=t$
                    inc u&:dec v&

                EndWhile

            EndWhile

            print "-------------- Ausgegebene Zeilen:",z&,"-----------------"
            WAITINPUT

        ENDWHILE

        END