fix: Satisfy clause
This commit is contained in:
parent
256a189125
commit
4810b91628
3 changed files with 18 additions and 17 deletions
|
@ -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.
|
||||
|
|
Reference in a new issue