Caching a matrix inverse

Author: sdqali

cachematrix.R

@@ -1,15 +1,43 @@
-## Put comments here that give an overall description of what your
-## functions do
 
-## Write a short comment describing this function
+## Creates a wrapper around a a matrix
 
-makeCacheMatrix <- function(x = matrix()) {
+makeCacheMatrix <- function(input = matrix()) {
+  inverse <- NULL
+  set <- function(y) {
+    input <<- x
+    inverse <<- NULL
+  }
 
+  get <- function() {
+    input
+  }
+
+  setInverse <- function(inv) {
+    inverse <<- inv
+  }
+
+  getInverse <- function() {
+    inverse
+  }
+
+  list(set = set, get = get,
+       setInverse = setInverse,
+       getInverse = getInverse)
 }
 
 
-## Write a short comment describing this function
+## Returns inverse of matrix 'x' from the cache if available
+## Otherwise computes and caches the inverse
 
 cacheSolve <- function(x, ...) {
-        ## Return a matrix that is the inverse of 'x'
+  inverse <- x$getInverse()
+  if(!is.null(inverse)) {
+    message("getting cached data")
+    return(inverse)
+  }
+
+  input <- x$get()
+  inverse <- solve(input, ...)
+  x$setInverse(inverse)
+  inverse
 }