Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- num_cred([], 0).
- num_cred([H|T], Sum) :- num_cred(T, Rest), course(H, P, C), Sum is C + Rest.
- courses(X,Y).
- pass2(X).
- fail2(X).
- /*Level 2 tests*/
- course(pai,inf,10).
- course(qf,eco,10).
- course(d,law,10).
- student(alice,ss).
- attend(alice,pai).
- attend(alice,qf).
- attend(alice,d).
- student(bob,ss).
- attend(bob,pai).
Add Comment
Please, Sign In to add comment