JS
если поток — это String, то записать его в переменную — это
savedStream = originalStreamcreateProcess или что-то в таком духе, то лови вывод с помощью этого самого createProcessSize: a a a
2020 July 08
АБ
Если его выводит сторонняя команда с помощью
PL
splitTranslation :: String -> [String]
splitTranslation string = do
let withoutSemicolumn = replace (pack ";") (pack "") (pack string)
let splited = splitOn (pack ", ") withoutSemicolumn
map unpack splited
containTranslation :: String -> String -> String -> IO String
containTranslation word phrase translation = do
text <- capture_ $ parse $ drop (length phrase + 1) translation
let russianWords = filter (\a -> a =~ regexp ("^[^\\(].*[ёа-яА-Я].*")) (lines text)
let words = concat $ map splitTranslation russianWords
if any (== word) words
then return $ phrase
else return $ ""
filterTranslations :: String -> [String] -> [String] -> IO()
filterTranslations word list dictionary = do
let translationArray = filter (\a -> a =~ regexp ("^.*" ++ word ++ ".*$")) dictionary
let indexArray = map (\a -> fromJust $ elemIndex a dictionary) translationArray
stringArray <- sequence $ map (\i -> containTranslation word (list !! i) (dictionary !! i)) indexArray
putStrLn $ mconcat $ intersperse ", " $ filter (( /= 0) . length) stringArrayPL
Вот так оно работает как надо.
АБ
splitTranslation :: String -> [String]
splitTranslation string = do
let withoutSemicolumn = replace (pack ";") (pack "") (pack string)
let splited = splitOn (pack ", ") withoutSemicolumn
map unpack splited
containTranslation :: String -> String -> String -> IO String
containTranslation word phrase translation = do
text <- capture_ $ parse $ drop (length phrase + 1) translation
let russianWords = filter (\a -> a =~ regexp ("^[^\\(].*[ёа-яА-Я].*")) (lines text)
let words = concat $ map splitTranslation russianWords
if any (== word) words
then return $ phrase
else return $ ""
filterTranslations :: String -> [String] -> [String] -> IO()
filterTranslations word list dictionary = do
let translationArray = filter (\a -> a =~ regexp ("^.*" ++ word ++ ".*$")) dictionary
let indexArray = map (\a -> fromJust $ elemIndex a dictionary) translationArray
stringArray <- sequence $ map (\i -> containTranslation word (list !! i) (dictionary !! i)) indexArray
putStrLn $ mconcat $ intersperse ", " $ filter (( /= 0) . length) stringArrayЗачем тебе вообще там IO String, если ты возвращаешь либо аргумент, либо пустую строку?
PL
text <- capture_ $ parse $ drop (length phrase + 1) translation
PL
Вот из-за этого вот.
АБ
Ну так возвращай просто IO Bool
АБ
text <- capture_ $ parse $ drop (length phrase + 1) translation
Или вообще вынеси вот эту часть в отдельный IO, а логику обработки результата -- в чистую функцию
֍֎
text <- capture_ $ parse $ drop (length phrase + 1) translation
V
А как превратить его в список String?
...
do
eitherStrings <- sequence listOfIOEitherStrings
С этого можешь начать
do
eitherStrings <- sequence listOfIOEitherStrings
С этого можешь начать
PL
PL
А что за parse?
Реализованная функция, парсит содержимое в файле
֍֎
Реализованная функция, парсит содержимое в файле
И выводит в
stdout результат?PL
И выводит в
stdout результат?Да
֍֎
И переписать ее нельзя?
АБ
Наивная переделка:
splitTranslation :: String -> [String]
splitTranslation string = map unpack splited
where
withoutSemicolon = replace (pack ";") (pack "") (pack string)
splited = splitOn (pack ", ") withoutSemicolon
getText :: String -> IO String
getText translation = capture_ $ parse $ drop (length phrase + 1) translation
containTranslation :: String -> String -> String -> Maybe String
containTranslation word phrase text = if any (== word) words then Just phrase else Nothing
where
russianWords = filter (\a -> a =~ regexp ("^[^\\(].*[ёа-яА-Я].*")) (lines text)
words = concat $ map splitTranslation russianWords
filterTranslations :: String -> [String] -> [String] -> IO()
filterTranslations word list dictionary = do
let translationArray = filter (\a -> a =~ regexp ("^.*" ++ word ++ ".*$")) dictionary
let indexArray = map (\a -> fromJust $ elemIndex a dictionary) translationArray
maybeArray <- sequence $ map (\i -> containTranslation word (list !! i) (dictionary !! i)) $ getText <$> indexArray
putStrLn $ mconcat $ intersperse ", " $ catMaybes maybeArray
PL
Спасибо.
2020 July 09
LO
Да