дилемма в особенностях реализации

lab2/report/report.tex

@@ -341,7 +341,79 @@
         xs <- barnsleyFern x' (n - 1)
         return (startPoint : xs)
     \end{lstlisting}
+
+
+    \subsection{Повторяющаяся дилемма заключённого}
+    \subsubsection{Равновесие Нэша}
+
+    Функция \texttt{nashEquilibriumStrategy}, код которой представлен в листинге~\ref{lst:nashEquilibriumStrategy}, реализует равновесие Нэша. Функция рекурсивная, она принимает на вход список действий оппонента, список уже сгенерированных действий и число -- счётчик количества ходов. Функция завершается, когда достигается максимум ходов, либо когда заканчиваются ходы оппонента. Также она использует вспомогательную функцию \texttt{indexOf}. Она принимает на вход некоторый список и элемент этого списка, а возвращает индекс первого совпавшего с указанным элемента. Она возвращает список ходов игрока в соответствии со стратегией.
+
     
+    \begin{lstlisting}[caption={Код функций, резализующих стратегию в соответствии с равновесием Нэша.}, label={lst:nashEquilibriumStrategy}]
+    indexOf :: (Eq t) => [t] -> t -> Int
+    indexOf [] _ = -1
+    indexOf (x : xs) target
+      | x == target = 0
+      | otherwise = 1 + indexOf xs target
+
+    nashEquilibriumStrategy :: [Char] -> [Char] -> Int -> [Char]
+    nashEquilibriumStrategy opponentMoves generatedMoves n =
+    if n <= 100 && length opponentMoves > 0
+        then
+        nashEquilibriumStrategy (tail opponentMoves) (generatedMoves ++ [nextStep]) (n + 1)
+        else generatedMoves
+    where
+        cases = [[' П', ' С'], [' П', ' П']]
+        results = [[0, 10], [5, 5]]
+        result =
+        [ min (results !! 0 !! 1) (results !! 1 !! 1),
+            max (results !! 0 !! 0) (results !! 1 !! 0)
+        ]
+        nextStep = cases !! indexOf results result !! 1
+    \end{lstlisting}
+
+    \subsubsection{Прощающая стратегия}
+
+    Функция \texttt{forgivingStrategy}, код которой представлен в листинге~\ref{lst:forgivingStrategy}, реализует прощающую стратегию. Функция рекурсивная, она принимает на вход список действий оппонента, список уже сгенерированных действий и число -- счётчик количества ходов. Функция завершается, когда достигается максимум ходов, либо когда заканчиваются ходы оппонента. Она возвращает список ходов игрока в соответствии со стратегией.
+
+    \begin{lstlisting}[caption={Код функции, реализующей прощающую стратегию.}, label={lst:forgivingStrategy}]
+    forgivingStrategy :: [Char] -> [Char] -> Int -> [Char]
+    forgivingStrategy opponentMoves generatedMoves n
+    | n > 100 || length opponentMoves == 1 = generatedMoves
+    | n == 0                               
+        = forgivingStrategy opponentMoves (generatedMoves ++ ['С']) (n + 1)
+    | head opponentMoves == 'С'            
+        = forgivingStrategy (tail opponentMoves) (generatedMoves ++ ['С']) (n + 1)
+    | otherwise                            
+        = forgivingStrategy (tail opponentMoves) (generatedMoves ++ ['П']) (n + 1)
+    \end{lstlisting}
+    
+    \subsubsection{Подсчёт очков}
+    Функция \texttt{getScore}, код которой представлен в листинге~\ref{lst:getScore}, подсчитывает количество лет заключения для каждого игрока. Функция рекурсивная, она принимает на вход список действий первого игрока, список действий второго игрока, и два числа -- количество лет заключения для перового и второго игроков. Функция возвращает пару из двух чисел -- количества лет заключения для игроков.
+
+    \begin{lstlisting}[caption={Код функции для подсчёта лет заключения.}, label={lst:getScore}]
+    getScore :: [Char] -> [Char] -> Int -> Int -> (Int, Int)
+    getScore moves1 moves2 score1 score2 =
+        if length moves1 == 0 then (score1, score2)
+        else getScore (tail moves1) (tail moves2) newScore1 newScore2
+        where 
+            cases = [[' С', ' С'], [' С', ' П'], [' П', ' С'], [' П', ' П']]
+            results = [[1, 1], [10, 0], [0, 10], [5, 5]]
+            newScore1 = score1 + results !! indexOf cases [head moves1, head moves2] !! 0
+            newScore2 = score2 + results !! indexOf cases [head moves1, head moves2] !! 1
+    \end{lstlisting}
+
+    
+    \subsubsection{Организация игры}
+    Функция \texttt{game}, код которой представлен в листинге~\ref{lst:game}, запускает игру. Она принимает на вход список действий первого игрока и функцию, реализующую стратегию игры. Функция возвращает список ответных ходов, выбранных в соответствии с указанной стратегией.
+
+    \begin{lstlisting}[caption={Код функции для подсчёта лет заключения.}, label={lst:game}]
+    game :: [Char] -> ([Char] -> [Char] -> Int -> [Char]) -> [Char]
+    game playerMoves gameStrategy
+        | null playerMoves = []
+        | otherwise = gameStrategy playerMoves [] 0
+    \end{lstlisting}
+
     \newpage
     \section {Результаты работы программы}