У меня есть следующий набор данных:
food_a(bagel, 245).
food_a(sandwich, 200).
food_a(salad,300).
food(bagel).
food(sandwich).
food(salad).
Я хочу удовлетворить следующее ограничение: учитывая общее количество калорий, я хочу вернуть продукты, которые ему соответствуют. Например, общее количество калорий = 500, программа должна вернуть «бублик + бутерброд» в качестве решения. Я закодировал его следующим кодом clingo:
food_a(bagel, 245).
food_a(sandwich, 200).
food_a(salad,300).
food(bagel).
food(sandwich).
food(salad).
has(bagel, wheat).
has(sandwich, bread).
has(sandwich, tomatoes).
has(sandwich, onion).
has(sandwich, cheese).
%calories(food,amount):-food_a(food,amount).
%food(F):-food_a(F,C).
%limits(calories,200).
%sol(F) :- food_a(F,C1),food_a(F,C2), C1+C2<500.
%:- {food(F,C) : food_a(F,C1),food_a(F,C2)} , C1+C2 >500.
%food_diet(F) :- food(F,C), C<250.
%:- food(F1) ,food_a(F2,C2), C1+C2=445.
totals(P, S) :- S = #sum{ I : food_a(P,I)}, food(P), S<500.
Результат, который я получаю, представлен на снимке экрана:
Судя по всему, программа возвращает только отдельные продукты, не учитывая комбинации из 2 или 3 из них за раз. Может ли кто-нибудь предложить изменения или шаги, которые я должен выполнить, чтобы добиться того же.