mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 17:33:38 +00:00
29 lines
530 B
Mathematica
29 lines
530 B
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ts=4 sw=4 et ft=mercury
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module remove_impl.
|
|
|
|
:- interface.
|
|
|
|
:- import_module list.
|
|
|
|
:- pred rr(list(T)::in, list(T)::out) is det.
|
|
|
|
:- implementation.
|
|
|
|
rr(X, Y) :-
|
|
r(X, T),
|
|
r(T, Y).
|
|
|
|
:- pred r(list(T)::in, list(T)::out) is det.
|
|
|
|
r([], []).
|
|
r([X], [X]).
|
|
r([X, Y | T], [X | T1]) :-
|
|
( if X = Y then
|
|
r(T, T1)
|
|
else
|
|
r([Y | T], T1)
|
|
).
|