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

Question

我是序言新手，想实现下面的谓词，

这是我的代码


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].

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

how do i delete char type in list in prolog?

prolog