From be25f5ec09e8d75ad221145095baf852f1a485ff Mon Sep 17 00:00:00 2001
From: Geverson Goncalves Rosa <geverson.rosa@ufpr.br>
Date: Sat, 10 Oct 2015 19:08:44 -0300
Subject: [PATCH] Trabalho numeros primos
---
README.md | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/README.md b/README.md
index e69de29..2629d3b 100644
--- a/README.md
+++ b/README.md
@@ -0,0 +1,10 @@
+primos <- function(N) {
+ i <- 2:N
+ s <- c()
+ while( length(i) > 0 ) {
+ s <- c(s, i[1])
+ i <- i[-1][i[-1] %% i[1] > 0]
+ }
+ return(s)
+}
+primos(100)
--
GitLab