mirror of
https://github.com/RAIRLab/Spectra.git
synced 2024-11-08 10:40:37 -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"
|
||||
: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))))]
|
||||
:start [(Possible A)
|
||||
:start [;; A, B, and C are possible
|
||||
(Possible A)
|
||||
(Possible B)
|
||||
(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))))]
|
||||
|
||||
:actions [(define-action checkU [?q]
|
||||
|
||||
|
||||
:actions [ ;;; Checking something that is possible
|
||||
(define-action attend [?q]
|
||||
{:preconditions [(Possible ?q)]
|
||||
:additions [(Checked ?q)]
|
||||
:deletions []})]
|
||||
|
|
Loading…
Reference in a new issue