XProfan

Español

p.specht

Dürfen zwei Spieler abwechselnd Dinge de una Korb wählen, y besteht Einigkeit en Wertigkeit dieser Dinge, Luego se se el erste, Spieler A, stets inmediatamente el beste o. wertvollste Ding de el Korb nehmen. Das se en Spieler B en el Laufe el Tiempo ungut auffallen, y él möchte auch como Erster beginnen. El Mathematiker Thue y Morse haben se überlegt, como Abfolge beim Spielbeginn ser muss, así en más solchen Spielen möglichst große Fairness entsteht. So enstand el Thue-Morse-Folge, el uno con el untenstehenden Progi erzeugen kann. Sie weist, ähnlich como Zahl Pi, una Struktur en, que niemals mehrfach wiederholt. Interessant es, daß uno ellos u.a. simplemente de Binär-Paritäten erzeugen kann.
Quelle: Youtube

Kompilieren Marca Separación

Título de la ventana "Thue-Morse Fairest Drawgame-Folge erzeugen"
CLS:font 2:declarar par&,w$,ThueMorse$
AppendMenuBar 100,"Eine Taste = Ende + Ergebnis en Zwischenablage!"

Whileloop 0,2^31-1

    par&=WhoseTurn$(&Loop)'= Binärtest en 32bit-Parity Odd
    w$=if(par&,"B ","A ")
    ThueMorse$=ThueMorse$+str$(par&)
    imprimir w$;
    putclip w$
    waitinput 7
    caso &Loop<20:waitinput 200
    caso %key:romper

endwhile

clearclip:putclip ThueMorse$
imprimir "\n\n Fairste Wahlabfolge en Zwischenablage! (Spieler A = 0, B = 1)"
beep:Waitinput 4444
End

Proc WhoseTurn$ :parámetros v&:v&=v&-((v&>>1) & $55555555)

    v&=(v& & $33333333)+((v&>>2) & $33333333)
    Volver int((((v&+(v&>>4) & $F0F0F0F)*$1010101)>>24) mod 2)

ENDPROC