添加動態數量的數字

Question

獲取給定的數據庫，例如

input(80). 
input(30). 
input(25). 
input(90). 

計算輸入量超過50倍100，僅限於採取/ 1輸入。 例如

%compute(?integer). 
compute(I). 
I = 200 %seeing as input(80) and input(90) matches the condition of being above 50 

我曾嘗試以下序言代碼來模擬天生的計算功能，不成功：

compute(I) :- input(G), G>50, I is I+100. 

，我打算將我+ 100不起作用。

Answer 1

Prolog逐個搜索匹配，並返回每個輸入的查詢結果，而不是全部輸入。要收集所有匹配值，您可以使用bagof,setof或findall metapredicates。 這裏是做你定義什麼代碼：

input(80). 
input(30). 
input(25). 
input(90). 

compute(I) :- 
    findall(X, (input(X), X>50), L), % Find all X's that are 'input' and >50 into L 
    length(L,Len),     % Find the length of L and put into Len 
    I is Len * 100.     % I is Len times 100