fork download
copy 
  1. can_phone(anne,bill).
  2. can_phone(anne,mary).
  3. can_phone(bill,tom).
  4. can_phone(bill,sue).
  5. can_phone(tom,liz).
  6. can_phone(tom,frank).
  7. can_phone(liz,frank).
  8. message_route(A,B,[A,B]) :- can_phone(A,B).
  9. message_route(A,B,R) :- can_phone(A,X), message_route(X,B,Tail), R = [A|Tail].
  10. :-message_route(anne,frank,Chain), write(Chain).
Success #stdin #stdout 0.02s 6160KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[anne, bill, tom, frank]
https://ideone.com/BseskL
language:
Prolog (swi 7.6.4)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!