From a4bb5bfd1845af624d9779a26fe2ccd8d165775a Mon Sep 17 00:00:00 2001
From: alex <weberam2@gmail.com>
Date: Thu, 12 Jun 2025 19:13:08 +0000
Subject: [PATCH 1/2] made r1.R faster

---
 R/r1.R | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/R/r1.R b/R/r1.R
index f4f4803..b12a229 100644
--- a/R/r1.R
+++ b/R/r1.R
@@ -1,9 +1,5 @@
 f1 <- function(n) {
-  squares_sum <- 0
-  for(i in 1:length(n)) {
-    squares_sum <- squares_sum + n[i]^2
-  }
-  squares_sum
+  sum(n^2)
 }
 
 n <- 1:10000

From 2dcc3daf68710356311edce35a5bcedf7608132f Mon Sep 17 00:00:00 2001
From: alex <weberam2@gmail.com>
Date: Thu, 12 Jun 2025 19:24:48 +0000
Subject: [PATCH 2/2] bla

---
 R/r1.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/r1.R b/R/r1.R
index b12a229..b4af6e2 100644
--- a/R/r1.R
+++ b/R/r1.R
@@ -5,3 +5,4 @@ f1 <- function(n) {
 n <- 1:10000
 
 f1(n)
+