mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 01:13:30 +00:00
20 lines
702 B
Mathematica
20 lines
702 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module lambda_syntax_error.
|
|
:- interface.
|
|
|
|
:- some [T] func baz1(int) = T.
|
|
:- some [T] func baz2(int) = T.
|
|
:- some [T] func baz3(int) = T.
|
|
:- some [T] func baz4(int) = T.
|
|
|
|
:- implementation.
|
|
:- import_module int.
|
|
|
|
baz1(X) = (pred(Y) :- X > Y). % modes & determinism not specified
|
|
baz2(X) = (pred(Y::in) :- X > Y). % determinism not specified
|
|
baz3(X) = (pred(Y) is semidet :- X > Y). % mode not specified
|
|
baz4(X) = (pred(A) = B :- X = A + B). % mixing `func' and `pred' notation
|