Народ, есть такой код: dividers n = filter ((== 0) .

Question

Народ, есть такой код: dividers n = filter ((== 0) .

mod n) $ [1..n-1]
partitions [] = [[]]
partitions (x:xs) = partitions xs >>= (\sub -> [sub, x:sub])
sumDivSet n = filter ((== n) . sum) . partitions $ dividers n
main = putStrLn . unlines . map show $ ((zip <*>) . map) sumDivSet list
where list = [1..400 :: Int]
Он нормально, быстро работает. Если же заменить определение partitions на, вроде бы, эквивалентное
partitions = filterM $ const [False, True]
, то скорость кода заметно падает. Скажите, пожалуйста, с чем это может быть связано?

#haskell #programming #russian

0

15.12.2018

2 ответов

3 просмотра

Антон 🇦🇲 · Answer 1

Антон 🇦🇲 Автор вопроса

Выглядит так, как будто упускается возможность для fusion-а. Или эти определения имеют неодинаковую семантику по отношению с ленивости?

0

15.12.2018

Антон 🇦🇲 · Answer 2

Антон 🇦🇲 Автор вопроса

Всё-таки, почему такая существенная разница в производительности?

0

16.12.2018

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

Народ, есть такой код: dividers n = filter ((== 0) .

2 ответов

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