APT.all-test.eight-puzzle.fifteen-puzzle.move-tile.soar Maven / Gradle / Ivy

Go to download

###
### fifteen-puzzle PROBLEM SPACE OPERATOR:
### MOVE-TILE
###

sp {eight*create*operator*move-tile
   (state  ^name fifteen-puzzle
              ^blank-cell )
   ( ^cell )
-->
   ( ^operator )
   ( ^name move-tile
        ^tile-cell 
        ^blank-cell )}

###
### fifteen-puzzle PROBLEM SPACE:
### OPERATOR IMPLEMENTATION
###

sp {eight*apply*operator*move-tile
   (state  ^operator 
              ^binding  { <>  }
              ^blank-cell )
   ( ^name move-tile
        ^tile-cell 
        ^blank-cell )
   ( ^tile  ^cell )
   ( ^tile  ^cell )
-->
   ( ^blank-cell  - )
   ( ^tile  - )
   ( ^tile  - )}

sp {eight*apply*operator*remove-tile-cell
   (state  ^operator 
              ^tile-cell )
   ( ^name move-tile
        ^blank-cell <> )
-->
   ( ^tile-cell  -)}

sp {eight*apply*operator*add-tile-cell
   (state  ^operator 
              ^blank-cell )
   ( ^name move-tile
        ^blank-cell )
-->
   ( ^tile-cell )}