mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-20 20:03:44 +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.
28 lines
611 B
Mathematica
28 lines
611 B
Mathematica
:- module dcg_test.
|
|
|
|
:- pred q(int::in, int::out) is semidet.
|
|
:- pred r(int::in, int::out) is semidet.
|
|
:- pred s(int::in, int::out) is semidet.
|
|
:- pred q is semidet.
|
|
:- pred r is semidet.
|
|
:- pred s is semidet.
|
|
:- external(q/2).
|
|
:- external(r/2).
|
|
:- external(s/2).
|
|
:- external(q/0).
|
|
:- external(r/0).
|
|
:- external(s/0).
|
|
|
|
:- pred p(int::in, int::out) is nondet.
|
|
|
|
p --> ( q -> r ; s ).
|
|
p --> ( { q } -> r ; s ).
|
|
p --> ( q -> { r } ; s ).
|
|
p --> ( { q } -> { r } ; s ).
|
|
p --> ( q -> r ; { s } ).
|
|
p --> ( { q } -> r ; { s } ).
|
|
p --> ( q -> { r } ; { s } ).
|
|
p --> ( { q } -> { r } ; { s } ).
|
|
p --> { ( q -> r ; s ) }.
|
|
|