From dcc5b13e57f5dc69d3124f767077fcc38f96c5a9 Mon Sep 17 00:00:00 2001 From: atner Date: Fri, 25 Mar 2016 08:43:54 +0300 Subject: [PATCH] Update cachematrix.R MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit задание2 для Coursera --- cachematrix.R | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) diff --git a/cachematrix.R b/cachematrix.R index a50be65aa44..cc4a9c8058f 100644 --- a/cachematrix.R +++ b/cachematrix.R @@ -4,12 +4,28 @@ ## 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' + inv <- x$getinverse() + if(!is.null(inv)) { + message("getting cached data.") + return(inv) + } + data <- x$get() + inv <- solve(data) + x$setinverse(inv) + inv }