From 098db8a7f0173c46dc2e9f25281ed4fa4de56998 Mon Sep 17 00:00:00 2001
From: Arity-T <tish.mainmail@gmail.com>
Date: Sun, 17 Nov 2024 19:09:02 +0300
Subject: [PATCH] =?UTF-8?q?=D0=94=D0=B8=D0=BD=D0=B0=D0=BC=D0=B8=D1=87?=
 =?UTF-8?q?=D0=B5=D1=81=D0=BA=D0=BE=D0=B5=20=D0=B8=D0=B7=D0=B2=D0=BB=D0=B5?=
 =?UTF-8?q?=D1=87=D0=B5=D0=BD=D0=B8=D0=B5=20=D0=B0=D0=BB=D1=84=D0=B0=D0=B2?=
 =?UTF-8?q?=D0=B8=D1=82=D0=B0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lab3/app/Main.hs |  5 ++++-
 lab3/src/Lib.hs  | 12 +++++++++---
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/lab3/app/Main.hs b/lab3/app/Main.hs
index 4c6b30f..87061f2 100644
--- 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
\ No newline at end of file
diff --git a/lab3/src/Lib.hs b/lab3/src/Lib.hs
index d36ff27..47ce077 100644
--- a/lab3/src/Lib.hs
+++ b/lab3/src/Lib.hs
@@ -1,6 +1,12 @@
 module Lib
-    ( someFunc
+    ( 
+        createAlphabetFromText
     ) where
 
-someFunc :: IO ()
-someFunc = putStrLn "someFunc"
+createAlphabetFromText :: String -> [Char]
+createAlphabetFromText [] = []
+createAlphabetFromText (x:xs)
+    | x `elem` alphabet = alphabet
+    | otherwise     = x : alphabet
+  where
+    alphabet = createAlphabetFromText xs
\ No newline at end of file