Done and tested as:
A <- matrix(c(2, -1, 0, -1, 2, -1, 0, -1, 2), 3)
a <- makeCacheMatrix(A)
cacheSolve(a)
cacheSolve(a)
cacheSolve(a)