R-边填充矩阵元

我在制作矩阵方面有问题

该问题具有以下条件： 若我得到矩阵的大小，比如n乘以m，我应该返回填充了从1到n*m的整数的矩阵

fill_matrix = function(n,m){
  #i want to fill but don't know how.......
  return(mat)
}
 > fill_matrix(5,5)
     [,1] [,2] [,3] [,4] [,5]
[1,]    1   16   15   14   13
[2,]    2   17   24   23   12
[3,]    3   18   25   22   11
[4,]    4   19   20   21   10
[5,]    5    6    7    8    9

第一次，使用方向改变向量（例如，向下：i+1，右：j+1…）或递归似乎是可能的，但我无法得到确切的结果

如果有人有好主意，请告诉我

我对这个问题非常失望

---

谢谢。

这是常见的编程问题：我自己的想法（可能不是原创）是利用这样一个事实，即您只从上方接近底部边界；从下面看顶部边界；以此类推。下面是用C实现的相同思想：