18 lines
265 B
Plaintext
18 lines
265 B
Plaintext
|
|
||
|
|
|
||
|
|
Schemes:
|
||
|
|
snap(S,N,A,P)
|
||
|
|
HasSameAddress(X,Y)
|
||
|
|
|
||
|
|
Facts:
|
||
|
|
snap('12345','C. Brown','12 Apple','555-1234').
|
||
|
|
snap('33333','Snoopy','12 Apple','555-1234').
|
||
|
|
|
||
|
|
Rules:
|
||
|
|
HasSameAddress(X,'Y') :- snap(A,X,B,C),snap(D,Y,'B',E).
|
||
|
|
|
||
|
|
Queries:
|
||
|
|
HasSameAddress('Snoopy',Who)?
|
||
|
|
|
||
|
|
|