prlg/inst/prelude.pl
2023-03-04 13:52:24 +01:00

6 lines
114 B
Prolog

member(X, [X|_]).
member(X, [_|T]) :- member(X,T).
append([], X, X).
append([X|T], Y, [X|TY]) :- append(T,Y,TY).