From c93607d280c6254a22bee0cb5f2b85cba3a089c4 Mon Sep 17 00:00:00 2001
From: Ashaan Brooks <ashaanbrooks@gmail.com>
Date: Thu, 12 Jun 2025 12:19:04 -0700
Subject: [PATCH] Create f2 for R exercise 1

---
 R/r1.R | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/R/r1.R b/R/r1.R
index f4f4803..348ba9f 100644
--- a/R/r1.R
+++ b/R/r1.R
@@ -1,3 +1,5 @@
+library(bench)
+
 f1 <- function(n) {
   squares_sum <- 0
   for(i in 1:length(n)) {
@@ -8,4 +10,15 @@ f1 <- function(n) {
 
 n <- 1:10000
 
-f1(n)
+mark(f1(n))
+
+
+f2 <- function(n) {
+  squares <- n^2
+  squares_sum <- sum(squares)
+  squares_sum
+}
+
+mark(f2(n))
+
+