mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-05-01 17:24:34 +00:00
16 lines
164 B
Mathematica
16 lines
164 B
Mathematica
:- module same_length_3.
|
|
:- interface.
|
|
|
|
:- pred p(int::out) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- pred loop is erroneous.
|
|
loop :- loop.
|
|
|
|
p(X) :-
|
|
loop,
|
|
X = 1
|
|
;
|
|
X = 2.
|