Message-ID:

Never make any mistaeks. -- Anonymous, in a mail discussion about to a kernel bug report

devel / comp.lang.lisp / anyone code STRIPS planner?

anyone code STRIPS planner?

<0f1c1c06-7258-47da-b518-2fd9531ef77cn@googlegroups.com>

https://www.rocksolidbbs.com/devel/article-flat.php?id=16628&group=comp.lang.lisp#16628

X-Received: by 2002:a05:6214:2a8a:: with SMTP id jr10mr20397293qvb.50.1624283976104;
Mon, 21 Jun 2021 06:59:36 -0700 (PDT)
X-Received: by 2002:a05:6830:3488:: with SMTP id c8mr2786663otu.273.1624283975762;
Mon, 21 Jun 2021 06:59:35 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.lisp
Date: Mon, 21 Jun 2021 06:59:35 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=1.132.104.196; posting-account=EsDGawkAAAAN6xcF2fi-X0yb3ECD-3_I
NNTP-Posting-Host: 1.132.104.196
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <0f1c1c06-7258-47da-b518-2fd9531ef77cn@googlegroups.com>
Subject: anyone code STRIPS planner?
From: grahamcooper7@gmail.com (Graham Cooper)
Injection-Date: Mon, 21 Jun 2021 13:59:36 +0000
Content-Type: text/plain; charset="UTF-8"

by: Graham Cooper - Mon, 21 Jun 2021 13:59 UTC

_____________________________________________________________

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

Subject	Author
anyone code STRIPS planner?	Graham Cooper