R语言生成蛇形矩阵

对于很多数学学院的学生来说，他们代码的能力是不够支撑起他们所学的数学知识的，基本谈到编程就是headache，其实很多很有趣的程序没有辣么的"headache",

怎么写的蛇形矩阵

   1 我的想法就是先构造它的框架

   2 利用它的特点，不出边界，

   3 它头走的规律，先是右走，走到不能走，就是向下走，不能走向左走，不能走就上走

        规律：右 到 下 到 左 到 上 的重复

附上代码

Screw_Matrix <- function(n = 3)
{
   if( n == 1)
   {
   re = 1
   }
   else if(n ==2)
   {
     re <- matrix(c(1,2,4,3), ncol = 2, byrow = TRUE)
   }
   else
   {
     re <- matrix(0,ncol = n,nrow = n)
     counts <- 1
     for(i in 1:n)
     {
       re[1,i] <- counts
       re[n-i+1,n] <- 2*n - counts
       counts <- counts + 1
     }
     counts <- 2*n
     for(