XProfan

Français

p.specht

Dürfen deux Spieler abwechselnd Dinge aus einem panier choisir, et besteht Einigkeit sur qui Wertigkeit cette Dinge, ensuite wird sich qui erste, Spieler A, stets tout de suite cela beste bzw. wertvollste Ding aus dem panier prendre. cela wird chez Spieler B im Laufe qui Zeit ungut auffallen, et il voudrais aussi comme Erster commencer. qui Mathematiker Thue et Morse avons sich überlegt, comment qui Abfolge beim Spielbeginn son muss, avec cela chez mehreren solchen Spielen possible grand Fairness entsteht. So enstand qui Thue-Morse-Folge, qui on avec dem untenstehenden Progi erzeugen peux. vous weist, ähnlich comment qui numéro Pi, une Struktur sur, qui sich niemals mehrfach wiederholt. intéressant ist, qui on vous u.a. simple aus Binär-Paritäten erzeugen peux.
source: Youtube

Kompilieren Marque Séparation

Titre de la fenêtre "Thue-Morse Fairest Drawgame-Folge erzeugen"
CLS:font 2:declare par&,w$,ThueMorse$
AppendMenuBar 100,"Eine bouton = Ende + Ergebnis dans Zwischenablage!"

Whileloop 0,2^31-1

    par&=WhoseTurn$(&Boucle)'= Binärtest sur 32bit-Parity Odd
    w$=si(par&,"B ","A ")
    ThueMorse$=ThueMorse$+str$(par&)
    imprimer w$;
    putclip w$
    waitinput 7
    cas &Boucle<20:waitinput 200
    cas %clé:pause

endwhile

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

Proc WhoseTurn$ :parameters v&:v&=v&-((v&>>1) & $55555555)

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

ENDPROC