From 1aa359b5c1137018300d084c44f89cd87c24999d Mon Sep 17 00:00:00 2001
From: Arity-T <tish.mainmail@gmail.com>
Date: Fri, 29 Nov 2024 19:24:05 +0300
Subject: [PATCH] =?UTF-8?q?=D0=9D=D0=B0=D0=BF=D0=B8=D1=81=D0=B0=D0=BB=20is?=
 =?UTF-8?q?Congruent?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lab4/app/Main.hs | 5 ++++-
 lab4/src/Lib.hs  | 6 +++---
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/lab4/app/Main.hs b/lab4/app/Main.hs
index 4c6b30f..33000ba 100644
--- a/lab4/app/Main.hs
+++ b/lab4/app/Main.hs
@@ -3,4 +3,7 @@ module Main (main) where
 import Lib
 
 main :: IO ()
-main = someFunc
+main = do
+  putStrLn $ "Примеры работы `isCongruent`"
+  putStrLn $ "isCongruent 10 12 2: " ++ show (isCongruent 10 12 2)
+  putStrLn $ "isCongruent 10 11 2: " ++ show (isCongruent 10 11 2)
\ No newline at end of file
diff --git a/lab4/src/Lib.hs b/lab4/src/Lib.hs
index d36ff27..382853f 100644
--- a/lab4/src/Lib.hs
+++ b/lab4/src/Lib.hs
@@ -1,6 +1,6 @@
 module Lib
-    ( someFunc
+    ( isCongruent
     ) where
 
-someFunc :: IO ()
-someFunc = putStrLn "someFunc"
+isCongruent :: Int -> Int -> Int -> Bool
+isCongruent a b d = a `mod` d == b `mod` d