Pop-Up Thingie
Sidebar
>>> Magnum BBS <<<
Home
Forum
Files
Dark
Log in
Username
Password
Sidebar
Forum
Usenet
COMP.LANG.PROLOG
kid(P K) working.... using OR(A B)
From
Graham Cooper
@21:1/5 to
All
on Mon Feb 20 01:45:58 2023
In this example we use OR() to calculate son(P K) or daughter(P K)
kid mary [?]
YES
dot mary maryson
maryson
2 kid mary
C=mary
X=
kid mary
2 1 or son dot X
1 or son dot X
A=son
B=dot
or son dot X
1 1 if
1 2 A C X
1 8 if
1 9 B C X
9 dot mary X
X=maryson
dot mary maryson
1 10 print B
1 11 print C
1 12 print X
1 13 echo newline
1 14 endif
2 2 print X
-------------------------------- CODE -----------------------
or A B X
-if
-A C X
-print A
-print C
-print X
-echo newline
-else
-if
-B C X
-print B
-print C
-print X
-echo newline
-endif
kid C X
-or son dot X
-print X
sis alan zeta
sis brad mary
bro brad nelly
bro carl tom
son alan joe
son nelly nellyson
dot mary maryson
son a b
dot c d
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)
Who's Online
Recent Visitors
Fred Blogs
Sun Nov 1 01:53:36 2026
from
Uk
via
SSH
Rixter
Sat Oct 31 23:01:35 2026
from
Madison, Nc
via
Telnet
Bob Worm
Sat Oct 31 21:42:41 2026
from
Wales, Uk
via
Telnet
Amstrad Ppc
Sat Oct 31 19:07:41 2026
from
Wiltshire
via
Telnet
Amstrad Ppc
Sat Oct 31 17:11:55 2026
from
Wiltshire
via
Telnet
Ashenfieldx
Sat Oct 31 16:47:35 2026
from
Guelph, Ontario
via
Telnet
Amstrad Ppc
Sat Oct 31 16:34:27 2026
from
Wiltshire
via
Telnet
Amstrad Ppc
Sat Oct 31 15:21:38 2026
from
Wiltshire
via
Telnet
System Info
Sysop:
Keyop
Location:
Huddersfield, West Yorkshire, UK
Users:
796
Nodes:
16 (
2
/
14
)
Uptime:
158:05:16
Calls:
13,194
Calls today:
1
Files:
15,485
Messages:
6,579,424