N-граммы в действии

coursework/part2/app/Main.hs

@@ -8,4 +8,7 @@ main =
     putStrLn "Введите имя файла:" >>
     getLine >>= \fileName ->
     readFile fileName >>= \content ->
-    uprint $ splitText content
+    let sentences = splitText content in
+    uprint (take 10 sentences) >>
+    let dict = buildDictionary sentences in
+    saveDictionary "dict.txt" dict