16 lines
425 B
Haskell
16 lines
425 B
Haskell
module Main (main) where
|
|
|
|
import Lib
|
|
|
|
main :: IO ()
|
|
main =
|
|
putStrLn "Введите имя файла:" >>
|
|
getLine >>= \fileName ->
|
|
readFile fileName >>= \content ->
|
|
let sentences = splitText content in
|
|
let dict = buildDictionary sentences in
|
|
saveDictionary "dict.txt" dict >>
|
|
putStrLn "Введите слово или пару слов:" >>
|
|
getLine >>= \input ->
|
|
processInput dict input
|