Динамическое извлечение алфавита

2024-11-17 19:09:02 +03:00
parent 035f2baf76
commit 098db8a7f0
2 changed files with 13 additions and 4 deletions
--- a/lab3/app/Main.hs
+++ b/lab3/app/Main.hs
@@ -3,4 +3,7 @@ module Main (main) where
 import Lib

 main :: IO ()
-main = someFunc
+main = do
+    inputText <- readFile "resources/biography.txt"
+    putStrLn $ take 30 inputText
+    putStrLn $ createAlphabetFromText inputText