Advertisement
starbeamrainbowlabs

Lab3.Grade.pl

Oct 20th, 2015
362
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 0.12 KB | None | 0 0
  1. grade(distinction, Mark) :-
  2.     Mark >= 70.
  3. grade(pass, Mark) :-
  4.     Mark >= 40,
  5.     Mark < 70.
  6. grade(fail, Mark) :-
  7.     Mark < 39.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement