use actual toplevel answers

This commit is contained in:
Markus Triska
2023-03-08 23:35:11 +01:00
parent 21acb9361a
commit 56bd596af3

View File

@@ -131,7 +131,8 @@ member(X, [_|Xs]) :- member(X, Xs).
%
% ```
% ?- select(c, "abcd", X).
% X = "abd".
% X = "abd"
% ; false.
% ```
select(X, [X|Xs], Xs).
select(X, [Y|Xs], [Y|Ys]) :- select(X, Xs, Ys).