From bf4d97da900ff7a05fc4eea9cb1975dc9f78eeeb Mon Sep 17 00:00:00 2001
From: Arity-T <tish.mainmail@gmail.com>
Date: Mon, 9 Dec 2024 20:40:39 +0300
Subject: [PATCH] =?UTF-8?q?=D0=A3=D0=BA=D1=80=D0=B0=D1=81=D0=B8=D0=BB=20?=
 =?UTF-8?q?=D0=B2=D1=8B=D0=B2=D0=BE=D0=B4=20=D0=B4=D0=B8=D0=B0=D0=BB=D0=BE?=
 =?UTF-8?q?=D0=B3=D0=B0?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 coursework/part2/src/Lib.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/coursework/part2/src/Lib.hs b/coursework/part2/src/Lib.hs
index 816ace4..f71e9ef 100644
--- a/coursework/part2/src/Lib.hs
+++ b/coursework/part2/src/Lib.hs
@@ -85,19 +85,21 @@ dialogStep dict prevPhrase =
         Just key ->
             newStdGen >>= \gen ->
             let p = generatePhrase dict key gen
-            in putStrLn (unwords p) >> return p
+            in putStrLn ("(" ++ key ++ ") " ++ unwords p) >> return p
 
 twoModelsDialog :: Map String [String] -> Map String [String] -> String -> Int -> IO ()
 twoModelsDialog dict1 dict2 start m =
     newStdGen >>= \gen ->
     let first = generatePhrase dict1 start gen
-    in putStrLn (unwords first) >>
+    in putStrLn ("Модель 1: (" ++ start ++ ") " ++ unwords first) >>
         loop dict1 dict2 first m
   where
     loop d1 d2 prev 0 = return ()
     loop d1 d2 prev i =
+        putStr "Модель 2: " >>
         dialogStep d2 prev >>= \resp ->
         if null resp then return () else
+        putStr "Модель 1: " >>
         dialogStep d1 resp >>= \resp2 ->
         if null resp2 then return () else
         loop d1 d2 resp2 (i-1)
\ No newline at end of file