Поиск в ориентированном графе на Visual Prolog 7.5

[Panchess]

Задать ориентированный граф и определить:
- все узлы, доступные с заданного за один шаг;
- то же за 2 шага;
- все узлы, из которых можно попасть в заданный за один шаг;
- то же за 2 шага;
- все циклы длиной 3;
- есть ли гамильтонов цикл.

[rrrFer]

граф видимо задан как

node(Name).
edge(From, To).

Первая задача:

t1(Node):-
  edge(Node, To),
  write(To), fail; !.

Это если тебе надо их вывести на экран. Если собрать в список - то как то так:

findall(To, edge(Node, To), List).

Вторая задача:

t2(Node):-
  edge(Node, To),
  t1(To), fail; !.

Да, тут вызываем функцию из первого задания.

Третье задание:

t3(Node):-
  edge(From, Node),
  write(From), fail; !.

Четвертое:

t4(Node):-
  edge(From, Node),
  t3(From), fail; !.

Ну т.е. мы выбираем все узлы, из которых можно попасть в Node, и для всех них вызываем t3.

Про циклы смотри тут: https://pro-prof.com/forums/topic/loops_graph_detecting

Про гамильтонов цикл вообще готовое решение там же: https://pro-prof.com/forums/topic/se...n-graph-prolog