use actual toplevel answers
This commit is contained in:
@@ -131,7 +131,8 @@ member(X, [_|Xs]) :- member(X, Xs).
|
|||||||
%
|
%
|
||||||
% ```
|
% ```
|
||||||
% ?- select(c, "abcd", X).
|
% ?- select(c, "abcd", X).
|
||||||
% X = "abd".
|
% X = "abd"
|
||||||
|
% ; false.
|
||||||
% ```
|
% ```
|
||||||
select(X, [X|Xs], Xs).
|
select(X, [X|Xs], Xs).
|
||||||
select(X, [Y|Xs], [Y|Ys]) :- select(X, Xs, Ys).
|
select(X, [Y|Xs], [Y|Ys]) :- select(X, Xs, Ys).
|
||||||
|
|||||||
Reference in New Issue
Block a user