如何在Prolog中做一个迷宫？

% 定义迷宫的结构
room(1, 1). % 迷宫的起始房间
room(3, 3). % 迷宫的终点房间

% 定义迷宫的墙壁
wall(2, 2). % 墙壁的位置

% 定义可以通过的路径
path(X, Y) :- room(X, Y), \+ wall(X, Y). % 可以通过的路径是没有墙壁的房间

% 定义深度优先搜索算法
dfs(X, Y, Path) :- dfs(X, Y, [], Path).
dfs(X, Y, Visited, [room(X, Y) | Visited]) :- room(X, Y), \+ member(room(X, Y), Visited), (X = 3, Y = 3 ; (path(X1, Y1), dfs(X1, Y1, [room(X, Y) | Visited], Path))).

% 解决迷宫问题
solve_maze(Path) :- dfs(1, 1, Path).

?- solve_maze(Path).
Path = [room(1, 1), room(1, 2), room(2, 2), room(3, 2), room(3, 3)].