Реализации алгоритмов/Решето Эратосфена: различия между версиями
Содержимое удалено Содержимое добавлено
WillNess (обсуждение | вклад) →Просеивание через массив, посегментно между квадратами простых чисел: обновление, оформление |
WillNess (обсуждение | вклад) |
||
Строка 117:
ps = 2 : [n | (px, r:q:_) <- zip (inits ps) (tails (2 : map (^2) ps))
, (n, True)
accumArray (\_ _ -> False) True (r+1,q-1)
[ (m,()) | p <- px
|