Из битов в текст

2024-11-17 20:10:09 +03:00
parent 2dc18efbe4
commit f1fd3c1dea
2 changed files with 14 additions and 3 deletions
--- a/lab3/app/Main.hs
+++ b/lab3/app/Main.hs
@@ -13,4 +13,7 @@ main = do
    putStrLn $ show (length alphabet)
    let encryptedText = encryptCaesar alphabet caesarShift inputText
    putStrLn $ take 30 encryptedText
-    putStrLn $ concat (take 30 (map show (textToBits encryptedText)))
+    let encryptedTextBits = textToBits encryptedText
+    putStrLn $ concat (take 30 (map show encryptedTextBits))
+    let encryptedTextFromBits = bitsToText encryptedTextBits
+    putStrLn $ take 30 encryptedTextFromBits