Advertisement
wandrake

Untitled

May 30th, 2012
289
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 0.20 KB | None | 0 0
  1. arc(a, b).
  2. arc(c, b).
  3. arc(a, c).
  4. arc(c, a).
  5. arc(c, d).
  6. node(a).
  7. node(b).
  8. node(c).
  9. node(d).
  10. conn(A, B) :- arc(A, B), node(A), node(B).
  11. conn(A, B) :- arc(A, C), conn(C, B), node(A), node(B), node(C).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement