1+1=0 definieren?

[himitsu]

christian_r...

wenn schon, dann richtig binär

Delphi-Quellcode:

var x1, x2, sum: Integer;
sum := (x1 + x2) and 1;
mul := (x1 * x2) and 1;
sub := (x1 - x2) and 1;

// oder doch via Boolean
var x1, x2, sum: Boolean;
sum := x1 xor x2; {sum := x1 + x2}