From 09b722a8ebf23a30ab1074f786511268ea3a1fa0 Mon Sep 17 00:00:00 2001
From: Arity-T <tish.mainmail@gmail.com>
Date: Thu, 21 Nov 2024 15:08:04 +0300
Subject: [PATCH] =?UTF-8?q?=D0=A1=D0=BE=D1=85=D1=80=D0=B0=D0=BD=D0=B5?=
 =?UTF-8?q?=D0=BD=D0=B8=D0=B5=20=D0=B0=D0=BB=D1=84=D0=B0=D0=B2=D0=B8=D1=82?=
 =?UTF-8?q?=D0=B0=20=D0=B2=20=D1=84=D0=B0=D0=B9=D0=BB?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lab3/app/Main.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lab3/app/Main.hs b/lab3/app/Main.hs
index 38f4296..55a622c 100644
--- a/lab3/app/Main.hs
+++ b/lab3/app/Main.hs
@@ -22,6 +22,7 @@ main = do
     
     let sourceTextPath = "resources/biography.txt"
     let sourceImagePath = "resources/david.bmp"
+    let alphabetPath = "tmp/alphabet.txt"
     let encryptedTextPath = "tmp/biography_encrypted.txt"
     let encodedImagePath = "tmp/david_" ++ show bitsPerByte ++ "_" ++ show caesarShift ++ ".bmp"
     let decodedTextPath = "tmp/biography.txt"
@@ -33,6 +34,8 @@ main = do
     putStrLn "\nШифрование текста"    
     let alphabet = createAlphabetFromText inputText
     putStrLn $ "Размер алфавита: " ++ show (length alphabet)
+    writeFile alphabetPath alphabet
+    putStrLn $ "Алфавит сохранён в файл \"" ++ alphabetPath ++ "\""
     let encryptedText = encryptCaesar alphabet caesarShift inputText
     putStrLn $ "10 символов шифра: \"" ++ take 10 encryptedText ++ "\""
     writeFile encryptedTextPath encryptedText