Список действий на выходе из рекурсии

@SlashX6 · Регистрация: 16.03.2012

Author24 — интернет-сервис помощи студентам

Добрый день!

Как правильно "допилить" программу чтобы на выходе из рекурсии показывался список состояний которые были задействованы?
Изначально задача звучит так: Ограбить офис: место вскрытия сейфа - офис, место хранения комбинации от сейфа - спальня директора в его частном доме, место начала "игры" - подвал ресторана.

Prolog

%state(place, havekey, notrobbed)
 
move(state(office, safekey, notrobbed),
    open,
    state(office, safekey, robbed)).
move(state(P1, P1, Y),
    walk(P1,P2),
    state(P2, P2, Y)).
victory(state(_, _, robbed),[]).
victory(State1, [H|T]):- 
    move(State1, H, State2),
    victory(State2, T).

@Black Fregat · 17.04.2018, 06:26

Эта программа вообще не будет работать.
Как минимум, должен быть список доступных мест - иначе не будет работать walk
Кроме того, нет операции взятия ключа.

Посмотрите решение аналогичной задачи - Ваша даже проще: Не знаю как запустить программу

@SlashX6 · 17.04.2018, 10:03 **[ТС]**

Black Fregat, спасибо. Попробую разобраться.

@Black Fregat · 17.04.2018, 10:16

SlashX6, не получится - выкладывайте попытки, будем помогать

@Alanen · 03.01.2020, 15:02

Добрый день форумчане!

Выручайте, помогите допилить программу .
Написал эту программу, (в пролог не проверял) преподаватель забраковал, непойму где я , что не учел или где ошибка.
Вот мой код:

Prolog

% Ограбить офис компании: 
% место вскрытия сейфа - офис,
% место хранения комбинации от сейфа - спальня директора в его частном доме,
% State1 место начала "игры" - "подвальчик" (ресторан сомнительного качества)
 
state(v_restoran,net_kombinacii,neograblen) % Start igri
canrob(state(_,_,ograblen)).                % Okon4nije sejf ograblen
 
canrob( state1 ) :- move (state1 ,move ,state2 ) , canrob(state2).
move(state(_,net_kombinacii,neograblen) , takekomb , state(_,est_kombinacia,neograblen) ).
move(state(v_office,est_kombinacia,neograblen) , rob , state(v_office,est_kombinacia,ograblen) ).
move(state(Pos1,net_kombinacii,neograblen) , walk , state(Pos2,net_kombinacii,neograblen) ).

@arlat · 03.01.2020, 15:34

Сообщение от Alanen

в пролог не проверял)

круто

@Alanen · 03.01.2020, 15:42

arlat, Мне главное, чтоб понравилось преподавателю, сам он не указывает на конкретную ошибку.

@Alanen · 05.01.2020, 16:23

Prolog

% Ограбить офис компании: 
% место вскрытия сейфа - офис,
% место хранения комбинации от сейфа - спальня директора в его частном доме,
% State1 место начала "игры" - "подвальчик" (ресторан сомнительного качества)
% (v_restoran,at_home,v_office)  
% ( net_kombinacii, est_kombinacia)
% (neograblen, ograblen)
 
state(v_restoran,net_kombinacii,neograblen). % Start igri
 
canrob(state(_,_,ograblen)).                % Okon4nije sejf ograblen
canrob( State1 ) :- move(State1 ,_ ,State2) , canrob(State2).
 
move(state(at_home,net_kombinacii,neograblen) , takekomb , state(at_home,est_kombinacia,neograblen) ). % vzjatije kombinacii
move(state(v_office,est_kombinacia,neograblen) , rob , state(v_office,est_kombinacia,ograblen) ). % Ograblenije
move(state(P1,K,S), walk(P1,P2), state(P2,K,S)).  % Smena lokacii

@dgimazetdinov · 21.09.2020, 14:55

Приветствую всех. код заработал, а то нет ответа от автора.

@Alanen · 21.09.2020, 15:34

Данный код заработал.

Prolog

% Ограбить офис компании: 
% место вскрытия сейфа - офис,
% место хранения комбинации от сейфа - спальня директора в его частном доме,
% State1 место начала "игры" - "подвальчик" (ресторан сомнительного качества)
% (v_restoran,at_home,v_office)  
% ( net_kombinacii, est_kombinacia)
% (neograblen, ograblen)
 
state(v_restoran,net_kombinacii,neograblen). % Start igri
 
canrob(state(_,_,ograblen)).                % Okon4nije sejf ograblen
canrob( State1 ) :- move(State1 ,_ ,State2) , canrob(State2).
 
move(state(at_home,net_kombinacii,neograblen) , takekomb , state(at_home,est_kombinacia,neograblen) ). % vzjatije kombinacii
move(state(v_office,est_kombinacia,neograblen) , rob , state(v_office,est_kombinacia,ograblen) ). % Ograblenije
move(state(P1,K,S), walk(P1,P2), state(P2,K,S)).  % Smena lokacii

@Black Fregat Фрилансер 3705 / 2077 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	17.04.2018, 06:26	2
	Эта программа вообще не будет работать. Как минимум, должен быть список доступных мест - иначе не будет работать walk Кроме того, нет операции взятия ключа. Посмотрите решение аналогичной задачи - Ваша даже проще: Не знаю как запустить программу 1

@SlashX6 16 / 16 / 9 Регистрация: 16.03.2012 Сообщений: 437
	17.04.2018, 10:03 [ТС]	3
	Black Fregat, спасибо. Попробую разобраться. 0

@Black Fregat Фрилансер 3705 / 2077 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	17.04.2018, 10:16	4
	SlashX6, не получится - выкладывайте попытки, будем помогать 0

@arlat 794 / 598 / 156 Регистрация: 07.10.2013 Сообщений: 1,327
	03.01.2020, 15:34	6
	Сообщение от Alanen в пролог не проверял) круто 0

@Alanen 1 / 1 / 0 Регистрация: 18.05.2019 Сообщений: 6
	03.01.2020, 15:42	7
	arlat, Мне главное, чтоб понравилось преподавателю, сам он не указывает на конкретную ошибку. 0

@dgimazetdinov 0 / 0 / 0 Регистрация: 20.03.2018 Сообщений: 10
	21.09.2020, 14:55	9
	Приветствую всех. код заработал, а то нет ответа от автора. 0