Викиучебник

Реализации алгоритмов/Решето Эратосфена: различия между версиями

Интерактивная навигация по истории
← Предыдущая правкаСледующая правка →
Содержимое удалено Содержимое добавлено
ВизуальныйВики-текст
→‎Haskell: оформление
Строка 99:
===С комбинированным бесконечным решетом, от Richard Bird===
<source lang="haskell">
primesB = 2 : minus [3..] (foldr (\p r-> (p*p) : union [p*p+p, p*p+2*p..] r)
[] primesB)
 
union (x:xs) (y:ys) = case (compare x y) of
Строка 115:
(n,True) <- assocs (
accumArray (\_ _ -> False) True (r+1,q-1)
[(m,()) | p <- px,
let s=(r+p)`div`p*p, m <- [s, s+p..q-1]] )]
</source>
 
Источник — https://ru.wikibooks.org/wiki/Реализации_алгоритмов/Решето_Эратосфена