From aaec97ea5c259906410ee126fcf26fb89200383f Mon Sep 17 00:00:00 2001
From: Nicholas Smart <nrs5@sfu.ca>
Date: Thu, 12 Jun 2025 12:21:17 -0700
Subject: [PATCH] solution to r1

---
 R/r1.R | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/R/r1.R b/R/r1.R
index f4f4803..e95f664 100644
--- a/R/r1.R
+++ b/R/r1.R
@@ -6,6 +6,10 @@ f1 <- function(n) {
   squares_sum
 }
 
-n <- 1:10000
 
+f2 <- function(n) {
+  sum(n^2)
+}
+n <- 1:10000
 f1(n)
+f2(n)