mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-28 15:54:18 +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.
29 lines
440 B
Mathematica
29 lines
440 B
Mathematica
:- module same_length_2.
|
|
:- import_module list.
|
|
|
|
:- mode my_input_list_skel :: list_skel -> list_skel.
|
|
:- mode my_output_list_skel :: free -> list_skel.
|
|
:- mode my_list_skel_output :: list_skel -> ground.
|
|
|
|
:- pred q(list(T)::my_input_list_skel).
|
|
:- pred r(list(T)::my_output_list_skel).
|
|
|
|
:- external(q/1).
|
|
:- external(r/1).
|
|
|
|
:- pred p.
|
|
|
|
p :-
|
|
r(X),
|
|
q(X).
|
|
|
|
:- pred p2(list(T)::my_output_list_skel).
|
|
|
|
p2(X) :-
|
|
r(X),
|
|
q(X)
|
|
;
|
|
r(X),
|
|
q(X).
|
|
|