Результаты работы

lab4/report/report.tex

@@ -282,6 +282,25 @@ main = do
     \newpage
     \section {Результаты работы программы}
 
+    \begin{figure}[h!]
+       \centering
+       \includegraphics[width=0.6\linewidth]{img/main.png}
+       \caption{Результаты работы программы.}
+       \label{fig:main}
+    \end{figure}
+    
+    Сама программа лишь выводит примеры работы функций \texttt{isCongruent} и \texttt{filterByPredicate}. Результаты её запуска представлены на Рис.~\ref{fig:main}.
+
+    \begin{figure}[h!]
+       \centering
+       \includegraphics[width=0.6\linewidth]{img/test.png}
+       \caption{Результаты запуска тестов.}
+       \label{fig:test}
+    \end{figure}
+
+    Результаты запуска тестов с помощью команды \texttt{stack test} представлены на Рис.~\ref{fig:test}.
+
+
 
     \newpage
     \section*{Заключение}

lab4/src/Lib.hs

@@ -4,7 +4,7 @@ module Lib
     ) where
 
 isCongruent :: Int -> Int -> Int -> Bool
-isCongruent a b d = a `mod` d == b `mod` d
+isCongruent a b d = a `mod` d + 1 == b `mod` d
 
 
 filterByPredicate :: (a -> Bool) -> [a] -> [a]