Я вернул массив, заморозив, и сделал так: main = do

Question

Я вернул массив, заморозив, и сделал так: main = do

let (lowerBound, upperBound) = (2, 50_000_000)
let mask = primeMask upperBound
print $ foldMap (\i -> if mask `unsafeAt` i then Sum (1 :: Int) else Sum 0) [lowerBound .. upperBound]

Время не изменилось, 0.2 секунды, но вот эта строчка не очень, особенно Sum (1 :: Int)
А как более красивше?

#haskell #programming #russian

0

15.06.2024

1 ответов

19 просмотров

Danil Berestov · Accepted Answer

Danil Berestov

ну можно Sum @Int 0)))

0

6 месяцев назад

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

Я вернул массив, заморозив, и сделал так: main = do

1 ответов

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