Bitweise XOR Operation?

[TheBiber]

Ich habe es hingekriegt, ich habe einfach ein Common Event geschrieben, dass die XOR-Funktion simuliert. Hätte eigentlich selber darauf kommen müssen, die Potenz-Funktion habe ich schliesslich auch auf die gleiche Art erzeugt. (und so etwas als Matura-Jahrgangsbester in Mathematik)

Ich schreibe mal beide Funktionen hier auf, falls sie jemand einmal gebrauchen sollte:

Code:

Common Event: Potenz-Funktion

If [Exponent] = 0
   [Potenz] set 1
else case
   [Potenz] set Basis
   [Potenz Zählvariable] set [Exponent]
   loop
      [Potenz Zählvariable] - 1
      if [Potenz Zählvariable] = 0
         break
      end case
      [Potenz] * [Basis]
   end loop
end case

Code:

Common Event: XOR-Funktion

[XOR Zählvariable] set 0
[XOR Ergebnis] set 0
[XOR Teilvariable 1] set [XOR Operand 1]
[XOR Teilvariable 2] set [XOR Operand 2]
loop
   [XOR Prüfvariable 1] set [XOR Teilvariable 1]
   [XOR Prüfvariable 2] set [XOR Teilvariable 2]
   [XOR Prüfvariable 1] mod 2
   [XOR Prüfvariable 2] mod 2
   If  [XOR Prüfvariable 1] = [XOR Prüfvariable 2]
      [XOR Ergebnisvariable] set 0
   else case
      [XOR Ergebnisvariable] set 1
   end case
   [Basis] set 2
   [Exponent] set [XOR Zählvariable]
   Call Event: Potenz-Funktion
   [XOR Ergebnisvariable] * [Potenz]
   [XOR Ergebnis] + [XOR Ergebnisvariable]
   [XOR Zählvariable] + 1
   If [XOR Zählvariable] > 20
      break
   end case
   [XOR Teilvariable 1] / 2
   [XOR Teilvariable 2] / 2
end loop

Die Potenz-Funktion ist Grundlage für die XOR-Funktion. Um die Funktionen im Spiel benutzen zu können, müssen folgende Befehle ausgeführt werden:

Potenz-Funktion p = b^e ausführen:

Code:

[Basis] set b
[Exponent] set e
Call Event: Potenz-Funktion

b befindet sich anschliessend in der Variable [Potenz].


XOR-Funktion z = x XOR y ausführen:

Code:

[XOR Operand 1] set x
[XOR Operand 2] set y
Call Event: XOR-Funktion

z befindet sich anschliessend in der Variable [XOR Ergebnis].

Ich habe die Codes überprüft, sie scheinen beide zu funktionieren. Falls jemand einen Fehler entdeckt hat, soll er mich bitte darauf aufmerksam machen. Verbesserungsvorschläge sind ebenfalls willkommen.