• anyone code STRIPS planner?

    From Graham Cooper@21:1/5 to All on Mon Jun 21 06:59:35 2021
    _____________________________________________________________

    BLOCKS WORLD

    move BLOCK DESTINATION

    block1
    block2
    block3
    table

    block5
    block4
    table

    --------------------------------

    move block2 floor

    block3
    table

    block5
    block4
    table

    block1
    table

    block2
    floor




    ----------------------- CODE -------------------------


    blocksworld
    -echo BLOCKS WORLD
    -echo newline
    -echo newline
    -echo move BLOCK DESTINATION
    -echo newline
    -echo newline
    -current T
    -remove T
    -assert T block1 on block2
    -assert T block2 on block3
    -assert T block3 on table
    -assert T block4 on table
    -assert T block5 on block4
    -printblocks T

    printblocks T
    -T A on B
    -if
    -T C on A
    -clear A
    -clear B
    -clear C
    -next
    -printblocks T
    -else
    -printrest1 T A
    -echo newline
    -clear A
    -clear B
    -clear C
    -next
    -printblocks T

    printrest1 T X
    -print X
    -echo newline
    -clear Y
    -if
    -T X on Y
    -printrest1 T Y
    -endif

    clearb1 T B
    -clear A
    -if
    -T A on B
    -move1 A table
    -endif

    move1 X Y
    -current T
    -clearb1 T X
    -remove T X
    -assert T X on Y

    move J K
    -move1 J K
    -current T
    -printblocks T

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)