home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD 45 / SuperCD45.iso / talleres / prog_alternat / prolog_43 / proglang2.pl < prev    next >
Encoding:
Text File  |  1999-12-14  |  818 b   |  47 lines
  1. language(delphi).
  2. language(java).
  3. language(smalltalk).
  4. language(lisp).
  5. language(prolog).
  6. language(basic).
  7. language(eiffel).
  8.  
  9. oop(delphi).
  10. oop(java).
  11. oop(smalltalk).
  12. oop(eiffel).
  13.  
  14. likes(huw,prolog).
  15. likes(huw,delphi).
  16. likes(dolly,java).
  17. likes(dolly,smalltalk).
  18. likes(dolly,basic).
  19. likes(dolly,prolog).
  20. likes(tammy,java).
  21. likes(tammy,eiffel).
  22. likes(tammy,basic).
  23. likes(dwight,prolog).
  24.  
  25. likes(reba,Language) :-
  26.     oop(Language),
  27.     not(likes(dolly,Language)).
  28.  
  29. likes(garth,Language) :-
  30.     likes(reba,Language),
  31.     likes(tammy,Language).
  32.  
  33.  
  34. trendylang( L ) :-
  35.     likes(reba,L),
  36.     write(L),write( ' is trendy'),nl.
  37. trendylang( L ) :-
  38.     likes(garth,L),
  39.     write(L),write( ' is trendy'),nl.
  40. trendylang( L ) :-
  41.     write(L),write( ' is not trendy'),nl.
  42.  
  43.  
  44. nicelangs :-
  45.     language(L),
  46.     trendylang(L).
  47.