Lire au moyen des expressions régulières toutes les chaînes EPD/FEN d'un fichier

Version imprimable

1 pièce(s) jointe(s)

Bonjour !

J'étais très content d'avoir écrit cette petite unité, alors je la partage avec vous.

Imaginez que vous vous voulez charger une liste de chaînes à partir d'un fichier contenant des chaînes au format FEN (représentant un moment dans une partie d'échecs).
Code:

1 2 3 n7/3p1p2/NpkNp1p1/1p2P3/3Q4/6B1/b7/4K3 w - - 0 1 K6Q/1p6/pPq4P/P2p2P1/4pP1N/7k/n5R1/1n2BB2 w - - 0 1 8/8/8/3p4/1N1P2Kp/Bkp5/5Q2/4N3 w - - 0 1
Maintenant imaginez que le fichier se présente comme ceci.
Code:

1 2 3 FEN[121] = "n7/3p1p2/NpkNp1p1/1p2P3/3Q4/6B1/b7/4K3 w - - 0 1 "; // Sam Loyd (1856) 4-move mate [Qg1] - (5) FEN[122] = "K6Q/1p6/pPq4P/P2p2P1/4pP1N/7k/n5R1/1n2BB2 w - - 0 1 "; // Sam Loyd (1867) 4-move mate [BxP] - (11) FEN[123] = "8/8/8/3p4/1N1P2Kp/Bkp5/5Q2/4N3 w - - 0 1 "; // Sam Loyd (1867) 4-move mate [Qf8] - (13)
Là les expressions régulières sont vos amies.

Le fichier utilisé par le programme de démonstration est téléchargeable sur cette page.

Le programme charge 150 000 chaînes en moins de deux secondes.

Toutefois, j'ai observé, en 32 bits (sous Windows, je ne sais plus quelle version du compilateur) que le programme ne s'arrêtait plus... Il faudrait signaler le bug...

Il faudrait que j'écrive une autre version de l'unité avec la redoutable bibliothèque FLRE pour voir la différence. :)

En espérant que ce code puisse vous être utile, même si vous ne vous intéressez pas aux échecs. Il peut être adapté à un autre besoin.

1 pièce(s) jointe(s)

Citation:

Envoyé par Roland Chastain

Il faudrait que j'écrive une autre version de l'unité avec la redoutable bibliothèque FLRE pour voir la différence. :)

Voilà. Moins d'une seconde avec FLRE !
Code:

1 2 3 4 5 6 7 8 [roland@localhost gui]$ make timetest ./loadfen1timetest Time elapsed 00:00:01:585 Found 155078 FEN strings ./loadfen2timetest Time elapsed 00:00:00:956 Found 155078 FEN strings [roland@localhost gui]$
Une seconde pour détecter 150 000 chaînes, toutes différentes (1). Et encore dans cette seconde il y a le remplissage de la liste ! On pourrait se passer de la liste et conserver les données directement dans la variable de type TFLREMultiStrings.

(1) La fonction est même capable de reconnaître certaines chaînes mal formées. Elle les corrige et les ajoute dans la liste. 8-)

1 pièce(s) jointe(s)

Petite amélioration, consistant à créer une classe dérivée de TStringList, avec la méthode LoadFromFile surchargée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
unit FenStringList;
 
(* Loads all EPD/FEN strings contained in a file. *)
 
interface
 
uses
  SysUtils, Classes, RegExpr;
 
type
  TFenStringList = class(TStringList)
    procedure LoadFromFile(const FileName: string); override;
  end;
 
implementation