Ребят. подскажите пожалуйста, 2 часа с этим вожусь никак не

Question

Ребят. подскажите пожалуйста, 2 часа с этим вожусь никак не

могу понять:

Мне нужно считать количество повторений слов в файле. У меня есть две функции

1)для считывания слов из файла:
getWords :: FilePath -> IO [String]
getWords path = do contents <- readFile path
return $ (words contents)

для получения частоты слов
frequency :: (Ord a) => [a] -> [(a, Int)]
frequency xs = toList (fromListWith (+) [(x, 1) | x <- xs])

Проблема в том, что хаскель вместо [String] возвращает IO [String]
И функция frequency отказывается принимать IO [String] чтобы я туда не подавал

Что мне нужно сделать чтобы она приняла IO [String]? Как я понял, сконвертировать IO [String] в ]String] по-человечески не выйдет, возможно переделать функцию frequency, но как?

еще у меня есть основная функция откуда я вызываю эти две (но она сейчас не работает)

occurs :: FilePath -> [String]
occurs path = do
frequency getWords path

#haskell #programming #russian

0

01.11.2021

10 ответов

15 просмотров

Nutritional Rabbit

wordsFrequensyInFile :: FilePath -> IO [(String, Int)] wordsFrequensyInFile path = do words <- getWords path pure (frequency words)

0

01.11.2021

Mogus Amogus Автор вопроса

Nutritional Rabbit
wordsFrequensyInFile :: FilePath -> IO [(String, I...

нифига оно работает, спасибо

0

01.11.2021

Max Силинг

Nutritional Rabbit
wordsFrequensyInFile :: FilePath -> IO [(String, I...

тут же короче без do раза в два, не?

0

01.11.2021

Nutritional Rabbit

Max Силинг
тут же короче без do раза в два, не?

и непонятнее

0

01.11.2021

Max Силинг

Nutritional Rabbit
и непонятнее

why use many word when few do trick даже я понимаю fmap, а я Haskell-то не знаю

0

01.11.2021

Nutritional Rabbit

Max Силинг
why use many word when few do trick даже я понимаю...

ты умный, а не обычный студент уника, которому пихают хаскель

0

01.11.2021

Fell-x27 (MDS pool | Medusa wallet)

потому что return здесь - это не return из других языков. return :: a -> IO a

0

01.11.2021

Danil Berestov

Fell-x27 (MDS pool | Medusa wallet)
потому что return здесь - это не return из других ...

потому что return надо запретить и заставить использовать pure

0

01.11.2021

Fell-x27 (MDS pool | Medusa wallet)

Danil Berestov
потому что return надо запретить и заставить испол...

Ды просто надо сначала читать документацию, а потом уже монады монадить, а не надеяться на знания, притянутые из других языков. Это как "ложные друзья переводчика".

0

01.11.2021

Denis Gabidullin · Accepted Answer

Denis Gabidullin

Я бы советовал понять причину

0

01.11.2021

169 похожих чатов

Ребят. подскажите пожалуйста, 2 часа с этим вожусь никак не

10 ответов

Похожие вопросы