From f92d91571af264422bffe9ffe433f4c577ffd720 Mon Sep 17 00:00:00 2001 From: Arity-T Date: Mon, 9 Dec 2024 14:47:22 +0300 Subject: [PATCH] =?UTF-8?q?=D0=A3=D0=B1=D1=80=D0=B0=D0=BB=20=D0=BF=D1=83?= =?UTF-8?q?=D1=81=D1=82=D1=8B=D0=B5=20=D0=BF=D1=80=D0=B5=D0=B4=D0=BB=D0=BE?= =?UTF-8?q?=D0=B6=D0=B5=D0=BD=D0=B8=D1=8F?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- coursework/part2/src/Lib.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/coursework/part2/src/Lib.hs b/coursework/part2/src/Lib.hs index d0be732..9399da5 100644 --- 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 [] = []