mirror of
https://github.com/RAIRLab/Spectra.git
synced 2025-05-26 01:45:57 +00:00
122 lines
3.8 KiB
Clojure
122 lines
3.8 KiB
Clojure
{:name "test 1"
|
|
:background [P]
|
|
:start [Q]
|
|
:goal [R]
|
|
:actions
|
|
[(define-action a1 ()
|
|
{:preconditions [(or Q R)]
|
|
:additions [R]
|
|
:deletions [Q]})]
|
|
|
|
:expected-plan [a1]
|
|
}
|
|
|
|
|
|
|
|
{:name "simple killing"
|
|
:background []
|
|
:start [(forall ?x (Alive ?x))]
|
|
:goal [(forall ?x (Dead ?x))]
|
|
:actions
|
|
[(define-action kill ()
|
|
{:preconditions [(Alive ?x)]
|
|
:additions [(Dead ?x)]
|
|
:deletions [(Alive ?x)]})]
|
|
|
|
:expected-plans ([kill])
|
|
|
|
}
|
|
|
|
|
|
{:name "thirsty"
|
|
:background []
|
|
:start [thirsty]
|
|
:goal [(not thirsty)]
|
|
:actions
|
|
[(define-action drink ()
|
|
{:preconditions [thirsty]
|
|
:additions [(not thirsty)]
|
|
:deletions [thirsty]})
|
|
(define-action eat ()
|
|
{:preconditions [hungry]
|
|
:additions [(not hungry)]
|
|
:deletions [hungry]})]
|
|
|
|
:expected-plans ([drink])
|
|
|
|
}
|
|
|
|
|
|
{:name "hungry"
|
|
:background []
|
|
:start [hungry]
|
|
:goal [(not hungry)]
|
|
:actions
|
|
|
|
[(define-action drink ()
|
|
{:preconditions [thirsty]
|
|
:additions [(not thirsty)]
|
|
:deletions [thirsty]})
|
|
|
|
(define-action eat ()
|
|
{:preconditions [hungry]
|
|
:additions [(not hungry)]
|
|
:deletions [hungry]})]
|
|
|
|
:expected-plans ([eat])
|
|
}
|
|
|
|
|
|
{:name "hungry and thirsty"
|
|
:background []
|
|
:start [hungry thirsty]
|
|
:goal [(not (or hungry thirsty))]
|
|
:actions
|
|
[(define-action drink ()
|
|
{:preconditions [thirsty]
|
|
:additions [(not thirsty)]
|
|
:deletions [thirsty]})
|
|
|
|
(define-action eat ()
|
|
{:preconditions [hungry]
|
|
:additions [(not hungry)]
|
|
:deletions [hungry]})]
|
|
|
|
:expected-plans ([eat drink]
|
|
[drink eat])
|
|
}
|
|
|
|
{:name "hungry and thirsty"
|
|
:background []
|
|
:start [hungry thirsty work-unfinished]
|
|
:goal [work-finished]
|
|
:actions
|
|
|
|
[(define-action drink ()
|
|
{:preconditions [thirsty]
|
|
:additions [(not thirsty)]
|
|
:deletions [thirsty]})
|
|
|
|
(define-action eat ()
|
|
{:preconditions [hungry]
|
|
:additions [(not hungry)]
|
|
:deletions [hungry]})
|
|
|
|
(define-action work ()
|
|
{:preconditions [(and (not hungry) (not thirsty))]
|
|
:additions [work-finished]
|
|
:deletions [work-unfinished]})]
|
|
|
|
:expected-plans ([eat drink work]
|
|
[drink eat work])}
|
|
|
|
|
|
{:name "bidding problem"
|
|
:background []
|
|
:start [(bid 0)]
|
|
:goal [(bid 5)]
|
|
:actions
|
|
[(define-action post-new-bid (?number)
|
|
{:preconditions [(bid ?number)]
|
|
:additions [(bid ($$sum 1 ?number))]
|
|
:deletions [(bid ?number)]})]}
|