Advertisement
Guest User

Untitled

a guest
Apr 28th, 2015
209
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.10 KB | None | 0 0
  1. ?- A = [a,[b,c]], B = [a,[b,c],d], subset(B,A).
  2.  
  3. No
  4. 9 ?- A=[a,b],B=[b,a], subset(A,B).
  5.  
  6. A = [a, b]
  7. B = [b, a]
  8.  
  9. Yes
  10. 10 ?- A=[a,b],B=[b,a],subset(A,B),subset(B,A).
  11.  
  12. A = [a, b]
  13. B = [b, a]
  14.  
  15. Yes
  16. 11 ?- A=[a,b,c,d],B=[a,c,e], union(A,B,Suma).
  17.  
  18. A = [a, b, c, d]
  19. B = [a, c, e]
  20. Suma = [b, d, a, c, e]
  21.  
  22. Yes
  23. 12 ?- A=[a,b,c,d],B=[a,c,e], intersection(A,B,C).
  24.  
  25. A = [a, b, c, d]
  26. B = [a, c, e]
  27. C = [a, c]
  28.  
  29. Yes
  30. 13 ?- A=[a,b,c,d],B=[a,c,e], intersection(A,B,Suma).
  31.  
  32. A = [a, b, c, d]
  33. B = [a, c, e]
  34. Suma = [a, c]
  35.  
  36. Yes
  37. 14 ?- A=[a,b,c,d],B=[a,c,e], substract(A,B,C).
  38. ERROR: Undefined procedure: substract/3
  39. 15 ?- A=[a,b,c,d],B=[a,c,e], subtract(A,B,C).
  40.  
  41. A = [a, b, c, d]
  42. B = [a, c, e]
  43. C = [b, d]
  44.  
  45. Yes
  46. 16 ?- A=[a,b,c,d],B=[a,c,e], subtract(union(A,B,Suma),B,C).
  47.  
  48. No
  49. 17 ?- A=[a,b,c,d],B=[a,c,e], union(A,B,Suma), subtract(Suma,B,C).
  50.  
  51. A = [a, b, c, d]
  52. B = [a, c, e]
  53. Suma = [b, d, a, c, e]
  54. C = [b, d]
  55.  
  56. Yes
  57. 18 ?- A=[a,b,c,d],B=[a,c,e], union(A,B,Suma), intersection(B,A,C), subtract(Suma,C,D).
  58.  
  59. A = [a, b, c, d]
  60. B = [a, c, e]
  61. Suma = [b, d, a, c, e]
  62. C = [a, c]
  63. D = [b, d, e]
  64.  
  65. Yes
  66. 19 ?-
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement