Create cacheSolve.R

Added code to function cacheSolve()