From d9076f7dfac98315bf71b7b4d3a9cef96947e754 Mon Sep 17 00:00:00 2001
From: Arity-T <tish.mainmail@gmail.com>
Date: Sun, 17 Nov 2024 20:20:23 +0300
Subject: [PATCH] =?UTF-8?q?=D0=A4=D0=BE=D1=80=D0=BC=D0=B0=D1=82=D0=B8?=
 =?UTF-8?q?=D1=80=D0=BE=D0=B2=D0=B0=D0=BD=D0=B8=D0=B5=20=D0=BA=D0=BE=D0=B4?=
 =?UTF-8?q?=D0=B0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lab3/src/Lib.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/lab3/src/Lib.hs b/lab3/src/Lib.hs
index c4aeca1..5a7cfbe 100644
--- a/lab3/src/Lib.hs
+++ b/lab3/src/Lib.hs
@@ -21,19 +21,19 @@ createAlphabetFromText (x:xs)
 indexOf :: (Eq t) => [t] -> t -> Int
 indexOf [] _ = -1
 indexOf (x : xs) target
-  | x == target = 0
-  | otherwise = 1 + indexOf xs target
+    | x == target = 0
+    | otherwise = 1 + indexOf xs target
 
 encryptCaesar :: [Char] -> Int -> String -> String
 encryptCaesar alphabet shift text = map caesarChar text
-  where
-    caesarChar c = alphabet !! ((indexOf alphabet c + shift) `mod` length alphabet)
+    where
+        caesarChar c = alphabet !! ((indexOf alphabet c + shift) `mod` length alphabet)
 
 decryptCaesar :: [Char] -> Int -> String -> String
 decryptCaesar alphabet shift = 
-  encryptCaesar alphabet (alphabetLength - (shift `mod` alphabetLength)) 
-  where
-    alphabetLength = length alphabet
+    encryptCaesar alphabet (alphabetLength - (shift `mod` alphabetLength)) 
+    where
+        alphabetLength = length alphabet
 
 textToBits :: String -> [Int]
 textToBits = concatMap charToBits