Мелкие улучшения по коду
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user