Discussion :

[Roland Chastain]

Bonjour !

Je voudrais apprendre la technique des damiers binaires (c'est comme ça que je traduirais bitboard).

Pour commencer j'ai voulu écrire un petit programme mettant en œuvre l'exemple présenté sur cette page.

Ça commence mal. Dès le début j'obtiens un résultat inattendu.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
{$mode objfpc}
 
var
  damier: qword;
  i: integer;
 
begin
  damier := %0000000000000000000000000000000000000000000000001111111111111111;
 
 
  for i := 0 to 63 do
    if (damier and (1 shl i)) > 0 then
      Write('1')
    else
      Write('0');
end.
 
// 1111111111111111000000000000000011111111111111110000000000000000

Qu'est-ce qui ne va pas dans mon code ? Pourquoi la chaîne affichée ne correspond-elle pas aux chiffres binaires de la valeur en question ?

D'autres liens intéressants pour la suite de la discussion :
https://www.chessprogramming.org/Bitboards
http://pages.cs.wisc.edu/~psilord/bl...ges/index.html

[Roland Chastain]

Dans un programme existant j'ai trouvé cette solution qui donne bien le résultat attendu, mais je me demande toujours pourquoi "ma" solution ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
  for i := 0 to 63 do
  begin
    if damier and 1 > 0 then
      Write('1')
    else
      Write('0');
    damier := damier shr 1;
  end;

Au fait, vous paraît-il plus judicieux d'utiliser un QWord ou un Int64 ? Ou est-ce que ça ne change rien ?

[Jipété]

Salut salut,

juste sur ça, un petit cadeau (moi aussi j'en avais marre de chercher dans l'aide alors un jour j'ai pris le taureau par les cornes et hop !, copie d'écran de l'aide)

Au fait, vous paraît-il plus judicieux d'utiliser un QWord ou un Int64 ? Ou est-ce que ça ne change rien ?

Ça doit surement changer quelque chose quand le bit tout à gauche est à 1 ou pas.



Allez, que j'ai du graphisme qui m'attend,

[DomDA91]

Bonjour,

C'est la constante 1 qui joue des tours. Elle est integer par défaut donc 1 shl i renvoi un résultat 32 bits signé, ce résultat étant étendu ensuite à 64 bits par adjonction de 32 bits forts pour faire le AND.

Ceci fonctionne comme attendu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  for i := 0 to 63 do
    if (damier and (qword(1) shl i)) > 0 then
      Write('1')
    else
      Write('0');

[Jipété]

C'est la constante 1 qui joue des tours. Elle est integer par défaut

Oh lala, ça ne s'invente pas, des trucs pareils !

Bien joué -- comment tu sais ça, toi ? À force d'avoir pris des gamelles et des râteaux ?

[Roland Chastain]

@DomDA91

Oui, cela résout en effet le problème. Comme Jipété, je me suis demandé où vous étiez allé chercher cette solution.

Je laisse la discussion ouverte, car j'ai l'intention de continuer à creuser le sujet et j'aurai probablement encore besoin d'aide.

@Jipété

Merci pour ton soutien.