From 21c8537627fd8555b94e93bf46bb0e475f377f0d Mon Sep 17 00:00:00 2001
From: kl2400030727 <snehikurapati@gmail.com>
Date: Tue, 25 Nov 2025 21:35:00 +0530
Subject: [PATCH]  fibonacci.R

---
 archive/r/r/fibonacci.R | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 archive/r/r/fibonacci.R

diff --git a/archive/r/r/fibonacci.R b/archive/r/r/fibonacci.R
new file mode 100644
index 000000000..d4fb93894
--- /dev/null
+++ b/archive/r/r/fibonacci.R
@@ -0,0 +1,34 @@
+fibonacci <- function(n) {
+  if (n < 0) {
+    stop("Error: input must be a non-negative integer")
+  }
+  if (n == 0) return(0)
+  if (n == 1) return(1)
+
+  a <- 0
+  b <- 1
+
+  for (i in 2:n) {
+    temp <- a + b
+    a <- b
+    b <- temp
+  }
+  return(b)
+}
+
+# Main
+args <- commandArgs(trailingOnly = TRUE)
+
+if (length(args) != 1) {
+  cat("Usage: please provide a number\n")
+  quit(status = 1)
+}
+
+n <- as.numeric(args[1])
+
+if (is.na(n) || n < 0 || floor(n) != n) {
+  cat("Usage: please provide a non-negative integer\n")
+  quit(status = 1)
+}
+
+cat(fibonacci(n))