Zwischen Geraden und ungeraden Zahlen unterscheiden

[himitsu]

Zitat von TeronG:

btw: ist deine Lösung auch die Art, wie es Delphi macht!?

In etwa (ich hab jetzt nicht nachgesehn, aber vermutlich macht es Delphi so:

Delphi-Quellcode:

Function Odd(i: Integer): Boolean; 
  Begin 
    Result := Boolean(Byte(i) and 1);
  End;

// also
Function Odd(i: Integer): Boolean; 
  ASM
    AND   AL, 1
  End;

[add]
grad doch noch nachgesehn hab
Delphi macht es so, allerdings als Inline-Code.