univer-5th-semester/functional-programming
Code Actions Releases 7

Мелкие улучшения по коду

Browse Source
This commit is contained in:
Артём Тищенко
2024-12-09 20:49:16 +03:00
parent bf4d97da90
commit 659ccec528
2 changed files with 19 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
coursework/part2/app/Main.hs
View File

@@ -21,7 +21,7 @@ main =
saveDictionary "dict2.txt" dict2 >> saveDictionary "dict2.txt" dict2 >>
putStrLn "Введите начальное слово или пару слов для старта диалога:" >> putStrLn "Введите начальное слово или пару слов для старта диалога:" >>
getLine >>= \input2 -> getLine >>= \input2 ->
putStrLn "Введите количество сообщений M:" >> putStrLn "Введите количество сообщений от каждой модели:" >>
getLine >>= \ms -> getLine >>= \ms ->
let m = read ms :: Int in let m = read ms :: Int in
twoModelsDialog dict dict2 input2 m twoModelsDialog dict dict2 input2 m

11
coursework/part2/src/Lib.hs
View File

@@ -1,4 +1,10 @@
module Lib where module Lib (
splitText,
buildDictionary,
saveDictionary,
processInput,
twoModelsDialog
) where
import Data.Char (isLetter, toLower) import Data.Char (isLetter, toLower)
import Data.Map (Map) import Data.Map (Map)
@@ -94,7 +100,8 @@ twoModelsDialog dict1 dict2 start m =
in putStrLn ("Модель 1: (" ++ start ++ ") " ++ unwords first) >> in putStrLn ("Модель 1: (" ++ start ++ ") " ++ unwords first) >>
loop dict1 dict2 first m loop dict1 dict2 first m
where where
loop d1 d2 prev 0 = return () loop :: Map String [String] -> Map String [String] -> [String] -> Int -> IO ()
loop _ _ _ 0 = return ()
loop d1 d2 prev i = loop d1 d2 prev i =
putStr "Модель 2: " >> putStr "Модель 2: " >>
dialogStep d2 prev >>= \resp -> dialogStep d2 prev >>= \resp ->