15 lines
364 B
Haskell
15 lines
364 B
Haskell
module Main (main) where
|
|
|
|
import Lib
|
|
import UnescapingPrint (uprint)
|
|
|
|
main :: IO ()
|
|
main =
|
|
putStrLn "Введите имя файла:" >>
|
|
getLine >>= \fileName ->
|
|
readFile fileName >>= \content ->
|
|
let sentences = splitText content in
|
|
uprint (take 10 sentences) >>
|
|
let dict = buildDictionary sentences in
|
|
saveDictionary "dict.txt" dict
|