Prolog |添加多个值

Question

我有一些来自知识库的值，其中有3个字段:代码、日期和金额。我想添加由日期和代码选择的所有金额。

我有这个代码

%code, date, amount
values('AAA', date(02, 03, 2020), 1000).
values('AAA', date(31, 03, 2020), 2000).
values('AAA', date(02, 04, 2020), 1350).
values('BBB', date(15, 04, 2020), 1500).
values('CCC', date(15, 05, 2020), 950).

add_amount(Code, Month, Result) :- values(Code, date(_, Month, _), Amount).

但我不知道如何选择几个值。有人能给我个建议吗？

Answer 1

?- MONTH=04 , findall(AMOUNT,values(_,date(_,MONTH,_),AMOUNT),AMOUNTs) .
MONTH = 4,
AMOUNTs = [1350, 1500].

?- CODE='AAA' , findall(AMOUNT,values(CODE,date(_,_,_),AMOUNT),AMOUNTs).
CODE = 'AAA',
AMOUNTs = [1000, 2000, 1350].

?-