mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-30 16:54:41 +00:00
23 lines
210 B
Plaintext
23 lines
210 B
Plaintext
:- module stack_alloc.
|
|
|
|
:- pred in(int::in) is semidet.
|
|
:- pred out(int::out) is det.
|
|
|
|
:- pred p is semidet.
|
|
|
|
p :-
|
|
(
|
|
out(X),
|
|
out(Y),
|
|
p,
|
|
in(X),
|
|
in(Y)
|
|
;
|
|
out(A),
|
|
out(B),
|
|
p,
|
|
in(A),
|
|
in(B)
|
|
).
|
|
|