[tutor] Update assignment
This commit is contained in:
parent
39c3af4ba5
commit
ca687c0136
18 changed files with 438 additions and 14 deletions
20
examples/basics/equality.pl
Normal file
20
examples/basics/equality.pl
Normal 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).
|
||||
|
Reference in a new issue