XProfan

Título de la ventana "Lexikographisch aufsteigende Permutation eingegebener Worte"
' (F) P. Pájaro carpintero 2011, V1.02beta en XProfan11.2a free, sin Gewähr!
Declarar t$,t$[],n&,k&,j&,u&,v&,e%,z&,q$

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

    imprimir " Referencia: Wirklich ALLE Permutationen voluntad hier sólo entonces geliefert, wenn"
    imprimir " el Elemente a Beginn en lexikalisch aufsteigender Folge angegeben voluntad!    "
    imprimir " Ejemplo: 1|3|3|4|4.. oder Alfons Berta Charly Emil Gustav"
    imprimir " Eingabe el Elemente Por favor, con Leerzeichen oder | como Trenner:\n"
    input t$:imprimir:t$=trim$(t$):t$=translate$(t$,"  "," "):caso instr("|",t$):q$="|"
    t$=translate$(t$," ","|"):t$[]=explode(t$,"|"):n&=SizeOf(t$[])
    imprimir "--- Start de el angegebenen Lexikal-Permutation ---"

    Mientras que e%

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

        WhileLoop n&

            imprimir t$[&Loop-1];:caso &Loop=n&:continue
            imprimir q$;

        EndWhile

        imprimir

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

            k&=n&-2

            Mientras que t$[k&]>=t$[k&+1]

                Dec k&
                caso k&<0:romper

            EndWhile

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

                j&=n&-1

                Mientras que t$[j&]<=t$[k&]

                    dec j&

                EndWhile

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

                Mientras que u&<v&

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

                EndWhile

            EndWhile

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

        ENDWHILE

        FIN