Guest User

Untitled

a guest
Apr 18th, 2018
108
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 0.70 KB | None | 0 0
  1. trait(bold).
  2. trait(brilliant).
  3. trait(twisted).
  4. trait(insecure).
  5. trait(abused).
  6. trait(abusive).
  7. trait(ugly).
  8. trait(handsome).
  9. trait(clever).
  10. trait(clumsy).
  11. trait(marvelous).
  12. trait(crafty).
  13. trait(stupid).
  14.  
  15. mixesWith(bold,brilliant).
  16. mixesWith(bold,twisted).
  17. mixesWith(bold,abused).
  18. mixesWith(bold,abusive).
  19. mixesWith(bold,ugly).
  20. mixesWith(bold,handsome).
  21. mixesWith(bold,clever).
  22. mixesWith(bold,clumsy).
  23. mixesWith(bold,marvelous).
  24. mixesWith(bold,crafty).
  25. mixesWith(bold,stupid).
  26.  
  27. excludes(ugly, handsome).
  28. excludes(Trait1, Trait2) :- excludes(Trait2, Trait2).
  29.  
  30. character(Trait1,Trait2,Trait3) :- trait(Trait1), mixesWith(Trait1,Trait2), mixesWith(Trait1,Trait3), mixesWith(Trait2,Trait3).
Add Comment
Please, Sign In to add comment