solve(Amounts) :-
    Total = 1505,
    Prices = [215, 275, 335, 355, 420, 580],

    length(Prices, N),
    length(Amounts, N),
    Amounts :: 0..Total//min(Prices),
    Amounts * Prices #= Total,

    labeling(Amounts).

最佳答案

没有什么问题。这是 http://eclipseclp.org/examples/xkcd287.ecl.txt 的示例,如果您没有省略该行

:- lib(ic).

加载 interval constraint solver ,它会在 ECLiPSe Prolog 中正常工作。

关于prolog - 这个 prolog 优化解决方案有什么问题?,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/35744705/

10-11 17:42