Advertisement
Guest User

Untitled

a guest
Jun 16th, 2019
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.51 KB | None | 0 0
  1. gcd(X, 0, X) :- !.
  2. gcd(0, Y, Y) :- !.
  3. gcd(X, Y, Z) :- X > Y, !, X1 is X mod Y, gcd(X1, Y, Z).
  4. gcd(X, Y, Z) :- X <= Y, X1 is Y mod X, gcd(X1, X, Z).
  5.  
  6. gcd(8,2,2). --> true
  7. gcd(8,3,2). --> false
  8. gcd(3,8,2). --> flase
  9.  
  10. gcd(2,8,2). --> false
  11.  
  12. gcd(8,X,2).
  13.  
  14. ERROR: Arguments are not sufficiently instantiated
  15. ERROR: In:
  16. ERROR: [9] 8>_5726
  17. ERROR: [8] gcd(8,_5752,2) at /home/zula/prologme.pl:5
  18. ERROR: [7] <user>
  19.  
  20. ?- [gcd]
  21.  
  22. pl:6:18: Syntax error: Operator expected
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement