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)?