Prolog 序言|添加多个值

我有一些来自知识库的值，有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).

---

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

提示：看看

findall/3

。

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

?-