patrick/plasp
Archived
1
0
Fork 0
Code Issues 12 Releases 8 Activity

Fixed meta encoding for sequential, incremental planning.

Browse Source
This commit is contained in:
Patrick Lühne
2016-05-23 00:24:48 +02:00
parent 5b42b09e5d
commit 5db8af9ffc
4 changed files with 14 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
encodings/meta-sequential-incremental.lp
View File

@@ -19,6 +19,12 @@ holds(F, t) :- occurs(A, t), postcondition(A, F, true), action(A).
deleted(F, t) :- occurs(A, t), postcondition(A, F, false), action(A).
holds(F, t) :- holds(F, t - 1), not deleted(F, t).
% Enforce mutexes
deleted(F2, t) :- mutex(F1, true, F2, true), holds(F1, t).
holds(F2, t) :- mutex(F1, true, F2, false), holds(F1, t).
deleted(F2, t) :- mutex(F1, false, F2, true), not holds(F1, t).
holds(F2, t) :- mutex(F1, false, F2, false), not holds(F1, t).
#program check(t).
% Verify that goal is met
@@ -26,5 +32,4 @@ holds(F, t) :- holds(F, t - 1), not deleted(F, t).
:- query(t), goal(F, false), holds(F, t).
#show query/1.
#show holds/2.
#show occurs/2.