Add function to build matrix with cacheable solve (inverse)

Sean Hill · Sean Hill · commit e4ff9fa4509c · 2014-12-16T12:39:22.000-06:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -2,10 +2,22 @@
 ## Use the makeCacheMatrix to return a cacheable matrix and then use
 ## cacheSolve to compute the inverse and cache it or return the cached inverse
 
-## Write a short comment describing this function
+## This function takes a matrix and returns a list of functions for caching its inverse
 
 makeCacheMatrix <- function(x = matrix()) {
-
+  s <- NULL
+  
+  set <- function(y) {
+    x <<- y
+    s <<- NULL
+  }
+  
+  get <- function() x
+  
+  set_solve <- function(solve) s <<- solve
+  get_solve <- function() s
+  
+  list(set = set, get = get, set_solve = set_solve, get_solve = get_solve)
 }
 
 
