univer-5th-semester/functional-programming
Code Actions Releases 7

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

Browse Source
This commit is contained in:
Артём Тищенко
2024-12-09 14:47:22 +03:00
parent 1c7c0a0fd6
commit f92d91571a
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
coursework/part2/src/Lib.hs
View File

@@ -4,7 +4,7 @@ import Data.Char (isLetter, toLower)
splitText :: String -> [[String]] splitText :: String -> [[String]]
splitText text = map (processSentence . words) (splitSentences text) splitText text = filter (not . null) $ map (processSentence . words) (splitSentences text)
where where
splitSentences :: String -> [String] splitSentences :: String -> [String]
splitSentences [] = [] splitSentences [] = []