rairlab/Spectra
1
0
Fork 0
mirror of https://github.com/RAIRLab/Spectra.git synced 2024-11-24 01:46:33 -05:00
Code Issues Projects Releases Packages Wiki Activity

Adding in the soda can challenge.

Browse source
This commit is contained in:
Naveen Sundar Govindarajulu 2018-06-15 14:55:57 -07:00
parent 5ca5fcfc5d
commit 2624b0c411
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/main/resources/com/naveensundarg/planner/problems/tora/sodacan.clj
View file

@ -1,13 +1,19 @@
{:name "soda can challenge" {:name "soda can challenge"
:background [(forall [?thing] (if (and (Checked ?thing) (Possible ?thing)) :background [ ;; If all the possible things are checked, then the answer is known.
(forall [?thing] (if (and (Checked ?thing) (Possible ?thing))
(exists ?answer (Know ?answer))))] (exists ?answer (Know ?answer))))]
:start [(Possible A) :start [;; A, B, and C are possible
(Possible A)
(Possible B) (Possible B)
(Possible C) (Possible C)
;;; A, B, and C are the only possibilities
(forall [?u] (if (and (not (= ?u A)) (not (= ?u B)) (not (= ?u C))) (not (Possible ?u))))] (forall [?u] (if (and (not (= ?u A)) (not (= ?u B)) (not (= ?u C))) (not (Possible ?u))))]
:actions [(define-action checkU [?q]
:actions [ ;;; Checking something that is possible
(define-action attend [?q]
{:preconditions [(Possible ?q)] {:preconditions [(Possible ?q)]
:additions [(Checked ?q)] :additions [(Checked ?q)]
:deletions []})] :deletions []})]