Klasické plánování

Metody plánování Logika a prohledávání
Plánování - hledání logick´ych formulí do hloubky
% Depth first search
% ==================
depthFirstSearch(AnsPath) :initialState(Init),
depthFirst([Init], AnsPath).
depthFirst([S|_], [S]) :finalState(S),
!.
depthFirst([S|Path], [S|AnsPath]) :extend([S|Path],
S1),
depthFirst([S1, S |Path], AnsPath).
extend([S|Path], S1) :nextState(S,
S1),
not(memberState(S1, [S|Path])).
memberState(S, Path) :member(S,Path).
Radek Maˇrík (marikr@felk.cvut.cz) Klasické plánování 16. dubna 2013 39 / 70