From f2515859739d78df36aa5df41738407dce5fa35c Mon Sep 17 00:00:00 2001
From: AV_404 <aadarshvarma14@gmail.com>
Date: Wed, 18 Feb 2026 21:01:57 +0530
Subject: [PATCH 1/2] Implement caching in makeCacheMatrix and cacheSolve

Added caching functionality for matrix inversion.
---
 cachematrix.R | 34 +++++++++++++++++++++++++---------
 1 file changed, 25 insertions(+), 9 deletions(-)

diff --git a/cachematrix.R b/cachematrix.R
index a50be65aa44..915feb01ba1 100644
--- a/cachematrix.R
+++ b/cachematrix.R
@@ -1,15 +1,31 @@
-## Put comments here that give an overall description of what your
-## functions do
-
-## Write a short comment describing this function
-
 makeCacheMatrix <- function(x = matrix()) {
+        inv <- NULL
 
-}
+        set <- function(y) {
+                x <<- y
+                inv <<- NULL
+                }
+        get <- function() x
 
+        setinverse <- function(inverse) inv <<- inverse
+        getinverse <- function() inv
 
-## Write a short comment describing this function
+        list(set = set,
+             get = get,
+             setinverse = setinverse,
+             getinverse = getinverse)
+        }
 
 cacheSolve <- function(x, ...) {
-        ## Return a matrix that is the inverse of 'x'
-}
+        inv <- x$getinverse()
+
+        if(!is.null(inv)) {
+                message("getting cached data")
+                return(inv)
+                }
+        data <- x$get()
+        inv <- solve(data,...)
+        x$setinverse(inv)
+        inv
+        }
+        

From eebd4aeea1732aa8729a30af58f2b2fe71483f7c Mon Sep 17 00:00:00 2001
From: AV_404 <aadarshvarma14@gmail.com>
Date: Wed, 18 Feb 2026 21:10:10 +0530
Subject: [PATCH 2/2] Update cachematrix.R

---
 cachematrix.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cachematrix.R b/cachematrix.R
index 915feb01ba1..2c956028500 100644
--- a/cachematrix.R
+++ b/cachematrix.R
@@ -24,7 +24,7 @@ cacheSolve <- function(x, ...) {
                 return(inv)
                 }
         data <- x$get()
-        inv <- solve(data,...)
+        inv <- solve(data, ...)
         x$setinverse(inv)
         inv
         }