Описание слайда:
Исходный текст программы domains list=symbol* predicates nondeterm transition(symbol, symbol, symbol) nondeterm accessible(symbol, list, symbol) clauses transition(b1, x1, b2). transition(b2, x1, b3). transition(b3, x1, b4). transition(b4, x1, b1). transition(b1, x2, b4). transition(b2, x2, b3). transition(b3, x2, b2). transition(b4, x2, b1). accessible(B1, [X], B2) :- transition(B1, X, B2). accessible(B1, [X|Rest], B2) :- transition(B1, X, B3), accessible(B3, [Rest], B2). goal accessible(b1, [X1, X1, X1], b4).