[tutor] Update assignment

This commit is contained in:
tolauwae 2025-03-30 21:56:24 +02:00
parent 39c3af4ba5
commit ca687c0136
No known key found for this signature in database
GPG key ID: 20E068EB5B132116
18 changed files with 438 additions and 14 deletions

View file

@ -0,0 +1,20 @@
check_equal(X, Y) :-
X = Y,
write('X = Y succeeded'), nl.
check_identical(X, Y) :-
X == Y, !,
write('X == Y succeeded'), nl.
check_identical(_, _) :-
write('X == Y failed'), nl.
:- initialization(main).
main :-
check_identical(A, 13),
check_equal(A, 13),
check_identical(A, 13),
check_equal(42, 42),
check_identical(42, 42).