Добрый день. Я новичёк в хаскелле, буду благодарен если кто-то

Question

Добрый день. Я новичёк в хаскелле, буду благодарен если кто-то

поможет.

Задача - найти самую длинную непрерывную цепочку отрицательных чётных чисел. чисел до 10^6, каждое число по модулю до 10^9.

моё решение (после всех упрощений) ниже. Проблема в том, что почему-то вылетает по памяти. Может ли кто-нибудь посоветовать литературу об аллокации памяти в хаскеле? сам код:

int :: Char -> Int
int x = (read [x]) :: Int

isLastEven :: [Char] -> (Bool, [Char])
isLastEven [] = (False,[])
isLastEven (x:[]) = (even $ int x,[])
isLastEven (x:' ':xs) = (even $ int x, xs)
isLastEven (x:xs) = isLastEven xs

skip :: [Char] -> [Char]
skip [] = []
skip (' ':xs) = xs
skip (_:xs) = xs

count :: Integer -> Integer -> [Char] -> Integer
count mx cur [] = max cur mx
count mx cur ('-':xs) =
let (isEven, tail) = isLastEven xs
in if isEven then count mx (cur + 1) tail else count (max mx cur) 0 tail
count mx cur (_:xs) = count (max cur mx) 0 $ skip xs

main :: IO ()
main = do
x <- getLine
ln <- getLine
-- let ln = tail $ concat [" -999999998" | i <- [1..1000000]]
putStrLn $ show $ count 0 0 ln

#haskell #programming #russian

0

12.09.2019

2 ответов

17 просмотров

Roman

они поди компилируют без O2, анализатор строгости не отстреливает и в mx и cur образуются thunk'и. Попробуйте заменить первую строку определения count на count !mx !cur [] = max cur mx и добавить {-# LANGUAGE BangPatterns #-} в шапку файла

0

12.09.2019

Kirill Valyavin · Accepted Answer

Kirill Valyavin

Компиляция с -О3?

0

12.09.2019

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

Добрый день. Я новичёк в хаскелле, буду благодарен если кто-то

2 ответов

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