Assignment2

makeCacheMatrix <- function(x = matrix()) {
m <- NULL
set <- function (y) {
x <<- y
m <<- NULL }
get <- function() x
setinverse <- function(inverse) m <<- inverse
getinverse <- function() m
list(set = set,
get = get,
setinverse =setinverse,
getinverse = getinverse) } 

CacheSolve <- function (x, . . .) {
m <- x$getinverse()
(!is.null(m)) {
data <- x$get()
m <- solve (data, ...)
x$setinverse(m)
m }