mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-05-01 01:04:43 +00:00
520f835b22
Estimated hours taken: 2 Branches: main Replace deprecated mode and inst syntax in most of the test suite. TODO: Alter valid/mode_syntax.m when we start issuing warnings about the deprecated syntax. tests/*/*.m: Replace deprecated mode and inst syntax. Replace some uses of `:' as the module qualifier.
38 lines
606 B
Mathematica
38 lines
606 B
Mathematica
:- module quantifier2.
|
|
|
|
:- interface.
|
|
|
|
:- import_module io.
|
|
|
|
:- pred main(io__state::di,io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module list, int.
|
|
|
|
:- pred testsum(list(int),int,int).
|
|
:- mode testsum(in,in,out) is semidet.
|
|
|
|
testsum([],I,0) :- I > 0.
|
|
testsum([X|L],I,X + N1) :- testsum(L,I,N1).
|
|
|
|
|
|
:- pred foo(pred(int, int)).
|
|
:- mode foo(free >> (pred(in, out) is semidet)) is det.
|
|
|
|
foo(testsum([1,2,3])).
|
|
|
|
|
|
main -->
|
|
(
|
|
{ P = (pred(I :: in, X :: out) is semidet :- I > 0, X = 6),
|
|
foo(Q),
|
|
J = 1,
|
|
(call(P,J,_X) <=> call(Q,J,_Y)) }
|
|
->
|
|
print("yes"), nl
|
|
;
|
|
print("no"), nl
|
|
).
|
|
|