Написал isCongruent

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