14 lines
213 B
Mathematica
14 lines
213 B
Mathematica
|
:- module basics.
|
||
|
:- interface.
|
||
|
|
||
|
:- type part ---> one; two.
|
||
|
|
||
|
:- pred part(string, part).
|
||
|
:- mode part(in, out) is semidet.
|
||
|
:- mode part(out, in) is semidet.
|
||
|
|
||
|
:- implementation.
|
||
|
|
||
|
part("1", one).
|
||
|
part("2", two).
|