Текст в список бит

2024-11-17 19:47:13 +03:00
parent ef9f0448e4
commit 2dc18efbe4
2 changed files with 13 additions and 3 deletions
--- a/lab3/app/Main.hs
+++ b/lab3/app/Main.hs
@@ -11,4 +11,6 @@ main = do
    putStrLn $ take 30 inputText
    let alphabet = createAlphabetFromText inputText
    putStrLn $ show (length alphabet)
-    putStrLn $ take 30 (encryptCaesar alphabet caesarShift inputText)
+    let encryptedText = encryptCaesar alphabet caesarShift inputText
+    putStrLn $ take 30 encryptedText
+    putStrLn $ concat (take 30 (map show (textToBits encryptedText)))