Реализации алгоритмов/Решето Эратосфена: различия между версиями
Содержимое удалено Содержимое добавлено
WillNess (обсуждение | вклад) →Просеивание через массив, посегментно между квадратами простых чисел: более простой код |
WillNess (обсуждение | вклад) →Просеивание через массив, посегментно между квадратами простых чисел: обновление, оформление |
||
Строка 116:
import Data.Array.Unboxed
ps = 2 : [n | (px, r:q:_) <- zip (inits ps) (tails (2 : map (^2) ps))
[ (m,()) | p <- px
, let s = div (r+p)
:: UArray Int Bool ) ]
</syntaxhighlight>
|