17 lines
251 B
Plaintext
17 lines
251 B
Plaintext
Schemes:
|
|
snap(S,N,A,P)
|
|
NameHasID(N,S)
|
|
|
|
Facts:
|
|
snap('12345','C. Brown','12 Apple','555-1234').
|
|
snap('67890','L. Van Pelt','34 Pear','555-5678').
|
|
|
|
Rules:
|
|
NameHasID(N,S) :- snap(S,N,A,P)?
|
|
|
|
Queries:
|
|
NameHasID('Snoopy',Id)?
|
|
|
|
|
|
|