（Prolog）从列表中

Question

我试图从列表中获取10到40（包括）之间的所有数字，然后输出到另一个列表。到目前为止，我的代码有点工作，但没有产生预期的结果。问题在于我无法使用系统谓词。

rangeTenForty([], List2).
rangeTenForty([H|T], List2) :- H >= 10, T =< 40, rangeTenForty(T, List2).
rangeTenForty([H|T], List2) :- rangeTenForty(T, List2).

一些条件：

?- rangeTenForty([400, 13, 20, 50], X).返回答案X = [13,20]，一个查询

?- rangeTenForty([100, 5, 77], X).返回答案X = []，但查询

?- rangeTenForty([12,25,2004], [12,2004]).必须返回答案号。

真的非常感谢任何帮助。非常感谢。

Answer 1

你需要纠正一些事情。

rangeTenForty([], []).
rangeTenForty([H|T], [H|L]):- H >= 10, H =< 40, rangeTenForty(T, L).
rangeTenForty([H|T], L):- (H < 10;H > 40), rangeTenForty(T, L).