mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-23 05:13:48 +00:00
fa77e70a46
tests/valid/*: Renamed `*.nl' as `*.m'. Added a few new test cases. Removed a couple of duplicate test cases. Fixed up the Mmake file so that `mmake check' now works.
48 lines
811 B
Mathematica
48 lines
811 B
Mathematica
:- module switches.
|
|
|
|
:- type t ---> a ; b ; c.
|
|
:- type f ---> f(t).
|
|
|
|
% Basic first-argument indexing.
|
|
|
|
:- pred first_arg(t::in, int::out) is det.
|
|
first_arg(a, 1).
|
|
first_arg(b, 2).
|
|
first_arg(c, 3).
|
|
|
|
% Second-argument indexing.
|
|
|
|
:- pred second_arg(int::out, t::in) is det.
|
|
second_arg(1, a).
|
|
second_arg(2, b).
|
|
second_arg(3, c).
|
|
|
|
% Indexing of explicit disjunctions.
|
|
|
|
:- pred explict_disj(t::in, int::out) is det.
|
|
explict_disj(X, Y) :-
|
|
X = a, Y = 1
|
|
;
|
|
X = b, Y = 2
|
|
;
|
|
X = c, Y = 3.
|
|
|
|
% Chained indexing.
|
|
|
|
:- pred chained(t::in, int::out) is det.
|
|
chained(X, Y) :-
|
|
X = X1, X1 = a, Y = 1.
|
|
chained(X, Y) :-
|
|
X = X2, X2 = b, Y = 2.
|
|
chained(X, Y) :-
|
|
X = X3, X3 = c, Y = 3.
|
|
|
|
% Multi-level indexing.
|
|
|
|
:- pred multi_level(f::in, int::out) is det.
|
|
|
|
multi_level(f(a), 1).
|
|
multi_level(f(b), 2).
|
|
multi_level(f(c), 3).
|
|
|