Hubert Dreyfus, a professor of philosophy at MIT, later at Berkeley, was a critic of computer chess. In 1967 he was challenged to play a game of chess against the chess engine Mac Hack VI. Dreyfus (White) was an amateur player and while Mac Hack VI (Black) was not at all strong either, he lost. Some positions from the game will be analyzed using functions and the very strong built-in chess engine Arasan from the Wolfram Chess paclet. Code is provided at the end of this example to generate an animation of the entire game.
Setup
(5)
Install the Wolfram Chess paclet:
In[1]:=
PacletInstall["Wolfram/Chess"]
Load the paclet:
In[2]:=
Needs["Wolfram`Chess`"]
Import the game as a ChessGame object (get a ChessGame object by importing a PGN file):
In[3]:=
game=ChessGame
HubertDreyfus-MacHackVI
Date:1967.09.22
;
This gets the corresponding FEN positions for each position in the game after the starting position:
In[4]:=
fens=Rest[game["FENs"]];
The default method for EngineEvaluate is to start and quit the built-in engine after an evaluation. This is avoided, and hence is faster, by starting the engine and not quitting until all evaluations are completed: