modify Assignment2 inverse <- solve