fix: Satisfy clause

This commit is contained in:
Tibo De Peuter 2025-05-06 14:13:03 +02:00
parent 256a189125
commit 4810b91628
Signed by: tdpeuter
GPG key ID: 38297DE43F75FFE2
3 changed files with 18 additions and 17 deletions

View file

@ -4,6 +4,6 @@ leq(s(X), s(Y)) :- leq(X, Y).
:- initialization(main).
main :-
leq(X, s(s(s(0)))),
write(X), nl,
leq(A, s(s(s(0)))),
write(A), nl,
fail.