trying to create a new matrix by subtracting columns in a given matrix using R

Question

mat_sub <- function(x){
nc <- ncol(x)
  for (i in 1:nc){
    s <- x[,nc-i]-x[nc]
 }

Z <- cbind(x,s) Z }

Please help in understand