mirror of
https://github.com/RAIRLab/Spectra.git
synced 2024-11-09 19:20:35 -05:00
Adding in the soda can challenge.
This commit is contained in:
parent
5ca5fcfc5d
commit
2624b0c411
1 changed files with 9 additions and 3 deletions
|
@ -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 []})]
|
||||||
|
|
Loading…
Reference in a new issue