8-головоломка представляет собой квадратную доску с 9 позициями, заполненную 8 пронумерованными плитами и одним зазором. В любой момент плитка, прилегающая к зазору, может быть перемещена в зазор, соз
%(SWI-Prolog)You can run the program by: ?- bestfs([8,1,3,7,0,2,6,5,4],P).
initial([8,1,3,7,0,2,6,5,4]).
goal([1,2,3,8,0,4,7,6,5]).
operators([left, right, up, down]).
% 8-puzzle solution
% i