Убрал пустые предложения

2024-12-09 14:47:22 +03:00
parent 1c7c0a0fd6
commit f92d91571a
1 changed files with 1 additions and 1 deletions
--- a/coursework/part2/src/Lib.hs
+++ b/coursework/part2/src/Lib.hs
@@ -4,7 +4,7 @@ import Data.Char (isLetter, toLower)


 splitText :: String -> [[String]]
-splitText text = map (processSentence . words) (splitSentences text)
+splitText text = filter (not . null) $ map (processSentence . words) (splitSentences text)
  where
    splitSentences :: String -> [String]
    splitSentences [] = []