PL
Size: a a a
PL
АБ
containTranslation :: String -> String -> String -> Maybe String
stringArray :: [ String ]
stringArray = map (\i -> containTranslation word (list !! i) (dictionary !! i)) indexArray
main = mconcat $ putStrLn <$> intersperse ", " stringArray
PL
АБ
JS
АБ
PL
PL
АБ
JS
АБ
PL
JS
pure :: a -> IO a
— из чего угодно можно сделать IOАБ
containTranslation :: String -> String -> String -> IO String
containTranslation = do
text <- capture_ $ parse $ drop (length phrase + 1) translationArray
return $ foo text
stringArray :: IO [ String ]
stringArray = sequence $ map (\i -> containTranslation word (list !! i) (dictionary !! i)) indexArray
nonemptyStrings :: [ String ] -> [ String ]
nonemptyStrings = filter (( != 0) . length)
main = do
strings <- stringArray
putStrLn $ mconcat $ intersperse ", " $ nonemptyStrings strings
JS
containTranslation :: String -> String -> String -> IO String
containTranslation = do
text <- capture_ $ parse $ drop (length phrase + 1) translationArray
return $ foo text
stringArray :: IO [ String ]
stringArray = sequence $ map (\i -> containTranslation word (list !! i) (dictionary !! i)) indexArray
nonemptyStrings :: [ String ] -> [ String ]
nonemptyStrings = filter (( != 0) . length)
main = do
strings <- stringArray
putStrLn $ mconcat $ intersperse ", " $ nonemptyStrings strings
АБ
PL
pure :: a -> IO a
— из чего угодно можно сделать IOАБ
JS
АБ