r/leap: 1st iteration

r/README.md

@@ -14,3 +14,4 @@
 ## [Exercises](https://exercism.org/tracks/r/exercises)
 
 - [raindrops](./raindrops/README.md)
+- [leap](./leap/README.md)

r/leap/README.md

@@ -38,4 +38,9 @@ Your task is to determine whether a given year is a leap year.
 
 ### Based on
 
-CodeRanch Cattle Drive, Assignment 3 - https://coderanch.com/t/718816/Leap
+CodeRanch Cattle Drive, Assignment 3 - https://coderanch.com/t/718816/Leap
+
+### My Solution
+
+- [leap.R](./leap.R)
+- [run-tests](./run-tests-r.txt)

r/leap/leap.R

@@ -1,3 +1,15 @@
 leap <- function(year) {
+  if (year %% 400 == 0) {
+    return(TRUE)
+  }
 
+  if (year %% 100 == 0) {
+    return(FALSE)
+  }
+
+  if (year %% 4 == 0) {
+    return(TRUE)
+  }
+
+  return(FALSE)
 }

r/leap/run-tests-r.txt

@@ -0,0 +1,65 @@
+Running automated test file(s):
+
+
+===============================================================================
+
+Running: ../../.github/citools/r/r-test
+
+Running R Tests
+
+R versions:
+
+	R version 4.3.3 (2024-02-29) -- "Angel Food Cake"
+	Copyright (C) 2024 The R Foundation for Statistical Computing
+	Platform: x86_64-pc-linux-gnu (64-bit)
+
+	R is free software and comes with ABSOLUTELY NO WARRANTY.
+	You are welcome to redistribute it under the terms of the
+	GNU General Public License versions 2 or 3.
+	For more information about these matters see
+	https://www.gnu.org/licenses/.
+
+
+	Rscript (R) version 4.3.3 (2024-02-29)
+
+
+ ==============================================================================
+
+Running: Rscript test_leap.R
+
+Test passed 🎉
+Test passed 🎉
+Test passed 🎉
+Test passed 🎉
+
+real	0m0.586s
+user	0m0.525s
+sys	0m0.063s
+
+
+ ==============================================================================
+
+Exit code: 0
+
+real	0m0.790s
+user	0m0.619s
+sys	0m0.185s
+
+real	0m0.794s
+user	0m0.622s
+sys	0m0.187s
+
+===============================================================================
+
+Running: misspell ./leap.R ./test_leap.R
+
+real	0m0.018s
+user	0m0.014s
+sys	0m0.012s
+
+===============================================================================
+
+/home/vpayno/git_vpayno/exercism-workspace/r
+
+===============================================================================
+