fork download
  1. admit(bm) :- admit(ad).
  2. admit(cp) :- admit(ad).
  3. admit(ad) :- admit(cp).
  4. admit(dd) :- admit(cp).
  5. admit(ad) :- admit(ec).
  6. admit(bm) :- admit(ec).
  7. admit(cp) :- admit(ec).
  8. admit(cp) :- admit(fa).
  9. admit(dd) :- admit(fa).
  10. admit(bm) :- admit(cp),admit(dd).
  11. admit(ec) :- admit(cp),admit(dd).
  12. admit(fa) :- admit(cp),admit(dd).
  13. admit(dd) :- admit(ad),admit(bm).
  14.  
  15. admit(fa).
Runtime error #stdin #stdout 0.05s 68352KB
stdin
write('invited'),nl,
  admit(X),write(X),nl,
  fail.
stdout
GNU Prolog 1.3.1
By Daniel Diaz
Copyright (C) 1999-2009 Daniel Diaz
invited