From ef1662ff577add41d72d53b56b09410d5d05bccd Mon Sep 17 00:00:00 2001
From: Angell0901 <qujunhuaangell@gmail.com>
Date: Thu, 12 Jun 2025 12:09:47 -0700
Subject: [PATCH 1/3] add improvement for R script 1

---
 r1.R | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 r1.R

diff --git a/r1.R b/r1.R
new file mode 100644
index 0000000..dc86a6d
--- /dev/null
+++ b/r1.R
@@ -0,0 +1,17 @@
+f1 <- function(n) {
+  squares_sum <- 0
+  for(i in 1:length(n)) {
+    squares_sum <- squares_sum + n[i]^2
+  }
+  squares_sum
+}
+
+n <- 1:10000
+
+f1(n)
+
+f2 <- function(n) {
+	sum(n^2)
+}
+
+mark(f1(n), f2(n))

From fe3ff0ddf91d6adc353e31e031d9882e3fe51349 Mon Sep 17 00:00:00 2001
From: Angell0901 <qujunhuaangell@gmail.com>
Date: Thu, 12 Jun 2025 12:13:27 -0700
Subject: [PATCH 2/3] add improvement for R script 1

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

diff --git a/R/r1.R b/R/r1.R
index f4f4803..0834720 100644
--- a/R/r1.R
+++ b/R/r1.R
@@ -9,3 +9,7 @@ f1 <- function(n) {
 n <- 1:10000
 
 f1(n)
+
+f2 <- function(n) {
+	sum(n^2)
+}

From 588e55bd6cc1381173cda32c1425262b0a0853e0 Mon Sep 17 00:00:00 2001
From: Angell0901 <qujunhuaangell@gmail.com>
Date: Thu, 12 Jun 2025 12:20:50 -0700
Subject: [PATCH 3/3] proposal improvement to r1.R

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

diff --git a/R/r1.R b/R/r1.R
index 0834720..dc86a6d 100644
--- a/R/r1.R
+++ b/R/r1.R
@@ -13,3 +13,5 @@ f1(n)
 f2 <- function(n) {
 	sum(n^2)
 }
+
+mark(f1(n), f2(n))