Реализации алгоритмов/Решето Эратосфена: различия между версиями
Содержимое удалено Содержимое добавлено
м →Haskell: дополнение, уточнение, обновление данных |
|||
Строка 100:
</source>
Медленный вариант с использованием функционала filter:
<source lang="haskell">
primesOf n = helper [2..n] where
helper [] = []
helper (x:xs) = x : (helper (filt x xs))
filt a lst = filter (\x -> (mod x a) /= 0) lst
</source>
===Неограниченное решето===
|