（序言）從列表中獲取范圍內的數字

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