Comment déterminer la parité d'un nombre

not odd(N)

génére sur D2009 ceci :


and al,$01
xor al,$01


mais (N and 1) xor 1 n'est pas une expression booléenne !
pour la rendre booléenne il faudrait l'ecrire :

boolean((N and 1) xor 1)

Ce qui oblige a faire un transtypage, qui ne change rien à l'assembleur généré, certes, mais qui fait de l'écriture en plus pour le développeur.

par contre je crois que sur les anciennes version de delphi Odd etait une fonction donc risque de donner 4 instruction voir 5 au lieu de 2.

autre avantage, c'est que Odd n'est pas forcement dispo sur tout les langages (php, javascript par exemple), la solution AND= fonctionne donc sur tous :

php : ($N & 1 == 0)
javascript/c/perl : (N & 1 == 0)
python : (N and 1 == 0)
delphi : ((N and 1) = 0)
asm : test al,$1; setz al;

facile à retenir et à implémenter.

la solution du XOR peut par contre être pratique pour faire de la condition un sélecteur d'index dans un tableau ou liste. puisque le resultat par défaut est un entier.

const
ABool : array of TColor = ( clWhite, clBlack );
AInt : array[0..3] of TColor = (clRed, clBlue, clGreen, clYellow);
begin
Color1 := ABool[ (N and 1) = 0];
Color2 := AInt[ I + (N and 1 xor 1) ];
end;