Я пытаюсь изучить пролог, и это небольшая программа, которая мне нужна, однако я не могу понять, как это сделать.
Может ли кто-нибудь помочь мне, пожалуйста?
У нас есть опоссум (S, K).
Здесь S — список чисел. К - сумма положительных чисел.
?- опоссум([5,-1,3],К).
Должен вывести: K = 8.
Спасибо за ваше время!
possum(L, X) :- include(<(0), L, P), sum_list(P, X).
Тест:
?- possum([5, -1, 3], X).
X = 8.
Большое спасибо! Вы были БОЛЬШОЙ помощью!