Написал isCongruent

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)

lab4/src/Lib.hs

@@ -1,6 +1,6 @@
 module Lib
-    ( someFunc
+    ( isCongruent
     ) where
 
-someFunc :: IO ()
+isCongruent :: Int -> Int -> Int -> Bool
-someFunc = putStrLn "someFunc"
+isCongruent a b d = a `mod` d == b `mod` d