univer-5th-semester/functional-programming
Code Actions Releases 7

Сохранение алфавита в файл

Browse Source
This commit is contained in:
Артём Тищенко
2024-11-21 15:08:04 +03:00
parent 66279d0ff4
commit 09b722a8eb
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lab3/app/Main.hs
View File

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