Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=408923&view=findpost&p=3672634 Thu, 02 Jun 2016 12:56:19 +0000 Поиск выигрышной стратегии - две кучи фишек https://forum.sources.ru/index.php?showtopic=408923&view=findpost&p=3672634 Vesper Prolog https://forum.sources.ru/index.php?showtopic=408923&view=findpost&p=3672628 Thu, 02 Jun 2016 12:09:41 +0000 Поиск выигрышной стратегии - две кучи фишек https://forum.sources.ru/index.php?showtopic=408923&view=findpost&p=3672628
Добавлено
1. Первый выигрывает за один ход, если кучи (>=5, >=9) и (>=3, >=10)
2. Он проигрывает, когда своим ходом делает кучи из п.1, т.е. при (3, 9), (5, 8), (7, 7)
3. Первый выигрывает вторым ходом, если если первым приводит к ситуации из п.2, т.е. при (3, 7), (5, 6), (5, 7)
4. Тогда, если из (3, 5) сделать, что-то отличное от (5, 5), то проиграешь, т.е. первый побеждает из (3, 5)]]> xNut Prolog https://forum.sources.ru/index.php?showtopic=408923&view=findpost&p=3672625 Thu, 02 Jun 2016 12:05:39 +0000 Поиск выигрышной стратегии - две кучи фишек https://forum.sources.ru/index.php?showtopic=408923&view=findpost&p=3672625
Но мне еще нужно добавить чтобы ходы игроков выводились в графическом виде. Вот моя попытка, но я думаю что это как то неправильно, как мне сделать чтобы было более наглядно?

    swap(1,2).
    swap(2,1).
    win(Winer,P,[A,B]):- A + B > 23, ! ,Winer = P.
    win(Winer,P,[A,B]):-swap(P,P1), write("\nGo player"), write(P1),
    A1 is A*2,win(Winer,P1,[A1,B]), write("\nbunch is: "), write(A1), write(","), write(B),
    B1 is B*2,win(Winer,P1,[A,B1]), write("\nbunch is: "), write(A), write(","), write(B1),
    A2 is A+2,win(Winer,P1,[A2,B]), write("\nbunch is: "), write(A2), write(","), write(B),
    B2 is B+2,win(Winer,P1,[A,B2]), write("\nbunch is: "), write(A), write(","), write(B2).
    win(P1,P,_):-swap(P,P1).


Тесты:

    ?- win(1,2,[3,5]).
    Go player1
    Go player2
    Go player1
    bunch is: 24,5
    Go player2
    bunch is: 12,5
    Go player1
    Go player2
    bunch is: 6,10
    Go player1
    Go player2
    bunch is: 8,5
    Go player1
    Go player2
    bunch is: 6,7
    bunch is: 6,5
    Go player2
    Go player1
    Go player2
    bunch is: 6,10
    Go player1
    bunch is: 6,20
    bunch is: 3,40
    bunch is: 5,20
    bunch is: 3,22
    bunch is: 3,20
    Go player1
    Go player2
    bunch is: 5,10
    Go player1
    ...
    true.
]]> Kronos0041 Prolog