如何删除序言列表中的字符类型？

Question

我是新手学习prolog的新手，我想实现以下谓词，

这是我

onlyinteger(List,New):-
    flatten(List,Fla),
    member(X,Fla),
    string(X),
    delete(X,Fla,New).

onlyinteger([[5, 'A'], [5, 'B'],[1,'A'],[3,'C'],[7,'D']],X). -- input

想要的代码，

x = [5,5,1,3,7]。

Answer 1

% Base case, reached at the end of the loop
only_integer([], []).
% Add the integer to the output list
only_integer([[Int, _Char]|Tail], [Int|LstInt]) :-
    % Loop
    only_integer(Tail, LstInt).

swi-prolog 中的结果：

?- time(only_integer([[5, 'A'], [5, 'B'],[1,'A'],[3,'C'],[7,'D']],X)).
% 6 inferences, 0.000 CPU in 0.000 seconds (82% CPU, 187137 Lips)
X = [5,5,1,3,7].