cachematrix.R ver 1