Шифрование по цезарю

lab3/app/Main.hs

@@ -2,8 +2,13 @@ module Main (main) where
 
 import Lib
 
+caesarShift :: Int
+caesarShift = 66
+
 main :: IO ()
 main = do
     inputText <- readFile "resources/biography.txt"
     putStrLn $ take 30 inputText
-    putStrLn $ createAlphabetFromText inputText
+    let alphabet = createAlphabetFromText inputText
+    putStrLn $ show (length alphabet)
+    putStrLn $ take 30 (encryptCaesar alphabet caesarShift inputText)