Поиск выигрышной стратегии - две кучи фишек

 
0
 
Prolog | Функциональные языки
ava
Kronos0041 | 01.06.2016, 09:16
Два игрока играют в следующую игру. Перед ними лежат две кучки фишек, в первой из которых 3, а во второй - 5 фишек. У каждого игрока неограниченно много фишек. Ходят игроки по очереди. Делая очередной ход, игрок или увеличивает в какой-то кучке число фишек в 2 раза, или добавляет в какую-то кучку 2 фишки. Выигрывает тот игрок, после хода которого общее число фишек в двух кучках становится не менее 23. Выяснить, кто выигрывает при правильной игре - первый или второй игрок.

Но мне еще нужно добавить чтобы ходы игроков выводились в графическом виде. Вот моя попытка, но я думаю что это как то неправильно, как мне сделать чтобы было более наглядно?


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.
Ответы (0)

Комментарии не добавлены

Зарегистрируйтесь или войдите, чтобы написать.
Фирма дня
Вы также можете добавить свою фирму в каталог IT-фирм, и публиковать статьи, новости, вакансии и другую информацию от имени фирмы.
Подробнее
Участники
advanced
Отправить