Реализации алгоритмов/Решето Эратосфена: различия между версиями
Содержимое удалено Содержимое добавлено
WillNess (обсуждение | вклад) |
|||
Строка 83:
primesE = sieve [2..]
where
sieve (p:xs) = p : sieve (minus xs [p, p+p..])
-- или:
-- ps = (map head . scanl minus [2..] . map (\p -> [p, p+p..])) ps
</source>
|