[tutor] Update assignment

2025-03-30 21:56:24 +02:00 · 2025-03-30 21:56:24 +02:00 · ca687c0136
commit ca687c0136
parent 39c3af4ba5
18 changed files with 438 additions and 14 deletions
--- a/examples/basics/unification.pl
+++ b/examples/basics/unification.pl
@ -0,0 +1,22 @@
+grade(alice, a).
+grade(bob, b).
+grade(carol, a).
+grade(dave, c).
+
+got_an_a(Student) :-
+    grade(Student, Grade),
+    Grade = a.
+
+did_not_get_an_a(Student) :-
+    grade(Student, Grade),
+    Grade \= a.
+
+:- initialization(main).
+
+main :-
+    write("While "),
+    got_an_a(X),
+    write(X), write(" got an A, "), fail;
+    write("but "),
+    did_not_get_an_a(Y),
+    write(Y), write(" did not get an A, "), fail; write("unfortunately."), nl.