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). % ?- 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).