Реализации алгоритмов/Решето Эратосфена: различия между версиями
Содержимое удалено Содержимое добавлено
WillNess (обсуждение | вклад) →Haskell: добавил "через массив посегментно"; отредактировал "фильтр" и др. |
WillNess (обсуждение | вклад) |
||
Строка 82:
</source>
===С комбинированным бесконечным решетом, от Richard Bird===
<source lang="haskell">
primesB = 2 : minus [3..] (foldr (\p r-> (p*p) : union [p*p+p,p*p+2*p..] r)
|