Initial commit for Programming Assignment 2

Signed-off-by: Gponster <[email protected]>

Author: unknown

cachematrix.R

@@ -4,12 +4,44 @@
 ## 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
+	}
+	
+	list(set = set, get = get,
+		 setInverse = setInverse,
+		 getInverse = getInverse)
 }
 
 
 ## Write a short comment describing this function
 
 cacheSolve <- function(x, ...) {
-        ## Return a matrix that is the inverse of '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		
 }