Diferencia entre revisiones de «Implementación de algoritmos de teoría de números/Criba de Eratóstenes»
Contenido eliminado Contenido añadido
+cm |
→Haskell: +recuperar versión antigua |
||
Línea 262:
=== Haskell ===
==== Versión 1 ====
<source lang="Haskell">
eratostenes :: [Int] -> [Int] -- Criba de Eratóstenes (de una lista dada [2..n] te deja sólo los números primos)
eratostenes [] = []
eratostenes (x:xs) | not (null xs) && x^2 > last xs = (x:xs)
| otherwise = x: eratostenes [y | y <- xs, y `mod` x /= 0]
</source>
==== Versión 2 ====
<source lang="Haskell">
erastotenes :: Int -> [Int]
| |||