Message-ID:

"Even if you're on the right track, you'll get run over if you just sit there." -- Will Rogers

devel / comp.lang.prolog / VARS start with zVAR

VARS start with zVAR

<506f9f80-2061-47be-9731-8cd93f7a23b6n@googlegroups.com>

https://news.novabbs.org/devel/article-flat.php?id=2483&group=comp.lang.prolog#2483

copy link Newsgroups: comp.lang.prolog

X-Received: by 2002:a05:620a:4502:b0:6b4:6c2f:e7b7 with SMTP id t2-20020a05620a450200b006b46c2fe7b7mr17213749qkp.11.1659500377363;
Tue, 02 Aug 2022 21:19:37 -0700 (PDT)
X-Received: by 2002:a81:d353:0:b0:31e:2888:93a1 with SMTP id
d19-20020a81d353000000b0031e288893a1mr21177209ywl.498.1659500377058; Tue, 02
Aug 2022 21:19:37 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!feed1.usenet.blueworldhosting.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.prolog
Date: Tue, 2 Aug 2022 21:19:36 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=2001:8004:1180:52f4:d59a:ed58:1a81:75a7;
posting-account=EsDGawkAAAAN6xcF2fi-X0yb3ECD-3_I
NNTP-Posting-Host: 2001:8004:1180:52f4:d59a:ed58:1a81:75a7
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <506f9f80-2061-47be-9731-8cd93f7a23b6n@googlegroups.com>
Subject: VARS start with zVAR
From: grahamcooper7@gmail.com (Graham Cooper)
Injection-Date: Wed, 03 Aug 2022 04:19:37 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 1451

by: Graham Cooper - Wed, 3 Aug 2022 04:19 UTC

unify S T TTTT
-let R false
-let Q true
-if
-eq S T
-let R true
-endif
-if
-eq R false
-if
-bigger S y ********************** S is a variable eg zN
-print S
-print T
-addvar S T TTTT
-echo newline
-endif
-if
-eq R false
-if
-bigger T y
-print T
-print S
-addvar T S TTTT
-echo newline
-endif
-if
-eq Q false
-let R false
-endif
-if
-eq Q true
-if
-eq R false
-unifyarg S T TTTT
-endif