9 lines
128 B
Prolog
9 lines
128 B
Prolog
leq(0, _).
|
|
leq(s(X), s(Y)) :- leq(X, Y).
|
|
|
|
:- initialization(main).
|
|
|
|
main :-
|
|
leq(A, s(s(s(0)))),
|
|
write(A), nl,
|
|
fail.
|