mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-26 23:04:15 +00:00
19 lines
303 B
Mathematica
19 lines
303 B
Mathematica
:- module multidet_prune1.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io__state::di, io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
:- import_module require.
|
|
|
|
:- pred q(int::in) is det.
|
|
:- external(q/1).
|
|
|
|
main -->
|
|
( { X = 1 ; X = 2 ; fail }, { q(X) } ->
|
|
io__write_int(1)
|
|
;
|
|
io__write_int(2)
|
|
).
|