Diferencia entre revisiones de «Implementación de algoritmos de teoría de números/Criba de Eratóstenes»

Contenido eliminado Contenido añadido
Raulshc (discusión | contribs.)
+categoría
Se agrega el algoritmo para calcular los primos por criba de Eratostenes en lenguaje R
Línea 440:
End Sub
End Module
</source>
=== R ===
<source lang="r">
primos<-function(n){
posibles<-seq(1,n,by=2)
posibles[1]<-2
for(i in 2:round(sqrt(n))){
if(posibles[i]!=0){
for(j in seq(i + posibles[i], n/2, by=posibles[i])){
posibles[j]<-0
}
}
}
return(posibles[posibles!=0])
}
primos(10000)
</source>