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

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

View File

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