Есть такая задача про сложение цифр до заданного числа, где каждый по очереди игрок называет число из списка, которое после добавляется к общей сумме и если один из игроков в сумме получил заданное в начале число, то он победил.
Я хочу реализовать на основе минимакса алгоритм по подбору оптимальной цифры для прибавления. Собственно на python я уже решил данную задачу, а надо теперь на prolog.
Моя текущая реализация
%алгоритм минимакса
minmax(S,S,1,0,_).
minmax(S,S,0,1,_).
%игрок
minmax(S1,S2,0,A,L):-
can(N),
S is S1 + N,
S =< S2,
L1 is L + 1,
minmax(S,S2,1,R,L1),
mn(L,T),
T > R,
retractall(mn(L,_)),
asserta(mn(L,R)),
A is R.
%другой игрок
minmax(S1,S2,1,A,L):-
can(N),
S is S1 + N,
S =< S2,
L1 is L + 1,
minmax(S,S2,0,R,L1),
mx(L,T),
T < R,
retractall(mx(L,_)),
asserta(mx(L,R)),
A is R.
например для игрока я пытаюсь перебрать все доступные значения can(N), после вызова функции minmax идет сравнение с минимумом на текущем уровне и если он больше, то заменяем. Может есть какой-то более простой способ перебрать все элементы и вернуть с текущего уровня минимум-максимум?
p.s. данный алгоритм некорректно работает.