prolog - 根据一个值找到列表内列表的最小值

Question

我在序言中有这个列表

[[[dublin, london], 1000], [[dublin, moscow, london], 5000]]

我想计算列表的最小值，这样答案应该是

[[都柏林、伦敦]，1000]

这个问题有一些类似的问题minimum in list of lists in prolog

但这似乎不起作用，我得到的输出为 false。请帮忙

Answer 1

尝试库(聚合):

?- aggregate_all(min(X,Y), 
       member([Y,X], [[[dublin, london], 1000], 
                      [[dublin, moscow, london], 5000]]), 
       R).
R = min(1000, [dublin, london]).

另请参见此处:

可回溯谓词的聚合运算符
https://www.swi-prolog.org/pldoc/man?section=aggregate