A little more styling

bofh · bofh · commit f15499638dba · 2015-03-20T23:48:33.000+03:00
diff --git a/cachematrix.R b/cachematrix.R
@@ -35,12 +35,15 @@ makeCacheMatrix <- function(x = matrix()) {
 ## returns the inverse of the matrix, result is cached after the first run
 cacheSolve <- function(x, ...) {
   ci <- x$getinverse()
+
   if (!is.null(ci)) {
     message("returning inverse matrix from cache")
     return(ci)
   }
+
   m <- x$get()
   ci <- solve(m, ...)
   x$setinverse(ci)
+
   ci
 }
