Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 8th, 2012  |  syntax: None  |  size: 0.60 KB  |  hits: 11  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. print all records using query in prolog
  2. lectures(monday, nolecture).
  3. lectures(tuesday, vp).
  4. lectures(tuesday, se).
  5. lectures(tuesday, ddbms).
  6. lectures(wednessday, ds).
  7. lectures(wednessday, mpl).
  8. lectures(thursday, vp).
  9. lectures(thrusday, se).
  10. lectures(friday, ds).
  11. lectures(friday, mpl).
  12. lectures(saturday, ai).
  13. lectures(saturday, ddbms).
  14.  
  15. ?- lectures(friday, X), write(X),nl.
  16.        
  17. | ?- lectures(friday, X), write(X), nl, fail.
  18. ds
  19. mpl
  20.  
  21. no
  22. | ?-
  23.        
  24. display_lectures(Day) :-
  25.     lectures(Day, X),
  26.     write(X),
  27.     nl,
  28.     fail
  29.     ;
  30.     true.
  31.        
  32. display_lectures(Day) :- forall(lectures(Day, X), (write(X), nl)).
create a new version of this paste RAW Paste Data