mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-17 02:13:54 +00:00
103 lines
1.6 KiB
Mathematica
103 lines
1.6 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module simple_code.
|
|
:- interface.
|
|
:- pred p(int::in, int::out) is erroneous.
|
|
:- implementation.
|
|
|
|
:- import_module require.
|
|
p -->
|
|
(
|
|
[]
|
|
;
|
|
{ error("foo") }
|
|
),
|
|
( { true } ->
|
|
{ Z = 2 }
|
|
;
|
|
{ Z = 3 }
|
|
),
|
|
( { X = 3, X = 2, Z = 2 } ->
|
|
[]
|
|
;
|
|
[]
|
|
),
|
|
( { \+ true } ->
|
|
[]
|
|
;
|
|
[]
|
|
),
|
|
( { \+ det_pred } ->
|
|
[]
|
|
;
|
|
[]
|
|
),
|
|
( { \+ fail_pred } ->
|
|
[]
|
|
;
|
|
[]
|
|
),
|
|
{ \+ fail },
|
|
{ obsolete },
|
|
( { error("blah") } ->
|
|
[]
|
|
;
|
|
[]
|
|
).
|
|
|
|
:- pred det_pred is det.
|
|
|
|
det_pred.
|
|
|
|
:- pred fail_pred is failure.
|
|
|
|
fail_pred :- fail.
|
|
|
|
:- pred obsolete is det.
|
|
:- pragma obsolete(obsolete/0).
|
|
|
|
obsolete.
|
|
|
|
% This should give a warning about the second disjunct never succeeding.
|
|
:- pred r(int, int).
|
|
:- mode r(in(bound(1)), out(bound(42))) is det.
|
|
|
|
r(1, 42).
|
|
r(2, 21).
|
|
|
|
% This should not give a warning, because the second disjunct can
|
|
% succeed in the first mode.
|
|
:- pred q(int, int).
|
|
:- mode q(in, out) is semidet.
|
|
:- mode q(in(bound(1)), out(bound(42))) is det.
|
|
|
|
q(1, 42).
|
|
q(2, 21).
|
|
|
|
:- type node ---> a ; b ; c.
|
|
|
|
:- pred parent(node, node).
|
|
:- mode parent(in, out).
|
|
:- mode parent(out, in).
|
|
parent(a, b).
|
|
parent(b, c).
|
|
parent(a, c).
|
|
|
|
:- pred node(node).
|
|
:- mode node(out).
|
|
node(a).
|
|
node(b).
|
|
node(c).
|
|
|
|
:- pred anc(node, node).
|
|
:- mode anc(in, out).
|
|
:- mode anc(out, in).
|
|
anc(X, X) :-
|
|
node(X).
|
|
anc(X, Z) :-
|
|
parent(X, Y),
|
|
anc(Y, Z).
|
|
|