Moortiii

Untitled

Nov 7th, 2019
143
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.52 KB | None | 0 0
  1. rotate(1, 1).
  2. rotate(6, 9).
  3. rotate(8, 8).
  4. rotate(9, 6).
  5. rotate(0, 0).
  6.  
  7. rotate_plate(X, Y):-
  8. X = [A, B, C, D, E],
  9. rotate(A, F),
  10. rotate(B, G),
  11. rotate(C, H),
  12. rotate(D, I),
  13. rotate(E, J),
  14. Y = [F, G, H, I, J].
  15.  
  16. license(X):-
  17. length(X, 5),
  18. member(1, X);
  19. member(6, X);
  20. member(8, X);
  21. member(9, X);
  22. member(0, X),
  23. not(member(2, X)),
  24. not(member(3, X)),
  25. not(member(4, X)),
  26. not(member(5, X)),
  27. not(member(7, X)),
  28. rotate_plate(X, Y),
  29. X = Y.
Advertisement
Add Comment
Please, Sign In to add comment