XProfan

Italia

p.specht

Es gibt gefinkelte Such- und Sortieralgorithmen, die neben simplen Suchvektoren auch die Inhalte der Datenfelder selbst berücksichtigen. Wenn ein Mensch z.B. ein Telefonbuch aufschlägt um ein Wort mit "Z..." zu suchen, wird er presumibilmente nicht vorne, nicht mittig, sonder eher weit hinten zu suchen beginnen. Algorithmen wie z.B. "FastSearch" treffen in XProfan aber auf zwei Probleme: Anders als in C++ oder in Assembler können Strings nicht rasch und einfach als Zahlenwerte ausgelesen werden. Die zweite Schwierigkeit stellt dabei auch das in PCs verwendete "verkehrte" INTEL-Zahlenformat dar. Mag sein, daß es da Tricks gibt, die mir noch nicht bekannt sind. In Vorbereitung per den Fastsearch-Algorithmus (per vorsortierte, gleichverteilte File) habe ich mir einstweilen folgendermaßen beholfen:

Kompilieren Markieren Separieren

WindowTitle "Distanzen zwischen String-Anfängen (erste 4 Zeichen) ermitteln."
'(DW) Demoware/Testware 2015-01 by P.Specht, Wien (AT); Ohne jede Gewähr!
WindowStyle 24:Window 0,0-%maxx,%maxy-40:randomize
var n&=40
declare stra$[n&-1],tmp$,i&,j&,vec&,su$,tmp&
print "\n Ihr Basiswort (z.B. 1-4 Zeichen ihres Vornamens) bitte: ";
input su$:su$=lower$(su$)
print "\n Generierung von ";n&;" alphabetischen Zufalls-Strings der Länge [1..8], ... ";

whileloop 0,n&-1:tmp$="":whileloop 1+rnd(6):tmp$=tmp$+chr$(97+rnd(26))

    endwhile :stra$[&Loop]=tmp$:endwhile
    Print "\n die zwecks Überprüfbarkeit nun nach Stringdistanzwerten sortiert werden."

    whileloop 0,n&-1:i&=&Loop

        whileloop 0,n&-1:j&=&Loop

            if ASC4(stra$[i&]) < ASC4(stra$[j&])' if stra$[i&] < stra$[j&] 'Sort-Test

                tmp$=stra$[i&]:stra$[i&]=stra$[j&]:stra$[j&]=tmp$

            endif

        endwhile

    endwhile

    ' Ausgabe:

    whileloop 0,n&-1:j&=&Loop

        print tab(3);chr$(34)+stra$[j&]+chr$(34);\
        tab(14);" ist von ";chr$(34)+su$+chr$(34);tab(35);str$(int( ASC4(stra$[j&])-ASC4(su$)));\
        tab(50);" mögliche 4-Ketten entfernt."

    endwhile

    waitinput
    end

    proc ASC4 :parameters x$

        'Stringwert der ersten vier ASCII-Zeichen ermittlen (passen in un Long-Variable)
        declare x&',xl&:xl&=if(len(x$)<4,len(x$),4)

        select if(len(x$)<4,len(x$),4)

            caseof 0:x&=0

            caseof 1:x&=byte(addr(x$),0)<<23

            caseof 2:x&=byte(addr(x$),1)<<15 | byte(addr(x$),0)<<23

            caseof 3:x&=byte(addr(x$),2)<<7 | byte(addr(x$),1)<<15 | byte(addr(x$),0)<<23

            caseof 4:x&=byte(addr(x$),3)>>1 | byte(addr(x$),2)<<7 | byte(addr(x$),1)<<15 | byte(addr(x$),0)<<23

            otherwise :print "select error"
            endselect :return x&

        endproc