Haskell, 40

s[]=[];s(h:t)=h++(s$reverse$transpose t)

Решение эксплуатирует всё ту же идею отрезания первой строки от матрицы и поворота оставшегося куска против часовой стрелки.

https://ideone.com/FHeJAx

蟒蛇，88 65 60

f=lambda m:m and m.pop(0)+f([list(x)for x in zip(*m)][::-1])

这是我第一次用 Python 编写代码，所以我还不知道如何缩短（长度）代码。

Возникла следующая идея: берем матрицу, отрезаем от нее первую строку, оставшуюся часть поворачиваем против часовой стрелки на 90 градусов и рекурсивно применяем этот же алгоритм. В итоге потребовалось лишь выбрать ЯП, умеющий такие операции из коробки, им оказался Python ¯\_(ツ)_/¯

https://ideone.com/5qasui

Бонусом — алгоритм работает с любыми прямоугольными матрицами (не только с квадратными).

正因为如此，嗯……“谁少”的要求，天生就是这样的怪物……

C++，155 字节

232 字节

#define c(i,j) )std::cout<<m[i][j]<<" ";
using M=std::vector<std::vector<int>>;void s(M&m,int h){int i,n=m.size(),k=n-h-1;if(n>2*h){for(i=h;i<=k;c(h,i++)for(i=h+1;i<=k;c(i++,k)for(i=k-1;i>=h;c(k,i--)for(i=k-1;i>h;c(i--,h)s(m,h+1);}}

如果我们允许（并无视）公平标准

using namespace std;

然后我们得到 217 个字节...

这是偶数和奇数 N 的测试：https ://ideone.com/OEHTLS

如果您只需要将其推入一个数组 - 14 个字节以上：

#define c(i,j) )v.push_back(m[i][j]);
using V=std::vector<int>;
using M=std::vector<V>;void s(M&m,V&v,int h){int i,n=m.size(),k=n-h-1;if(n>2*h){for(i=h;i<=k;c(h,i++)for(i=h+1;i<=k;c(i++,k)for(i=k-1;i>=h;c(k,i--)for(i=k-1;i>h;c(i--,h)s(m,v,h+1);}}

首先允许的更改:) 用于填充到数组中

230 字节

#define c(k,r,c) for(i=0;i<k;++i)v.push_back(m[r][c]);
using V=std::vector<int>;void s(std::vector<V>&m,V&v,int h){int r=h,c=h,i,n=m.size(),k=n-2*h-1;if(!k)c(1,r,c)else if(k>0){c(k,r,c++)c(k,r++,c)c(k,r,c--)c(k,r--,c)s(m,v,h+1);}}

验证 - https://ideone.com/86YkY4

第二个允许的变化

与优化一样 - 有必要更改算法。我们改变……我们得到 196 个字节。

using V=std::vector<int>;void s(std::vector<V>&m,V&v,int n,int h){int r=h,c=h,i=0,j,l=n-2*h-1;if(l>-1){do{v.push_back(m[r][c]);l?(j=i/l)<1?c++:j<2?r++:j<3?c--:r--:l;}while(++i<4*l);s(m,v,n,h+1);}}

https://ideone.com/rDXdbh

但是您不仅可以更改算法，还可以更改使用的数据结构！让我们继续讨论int**，因为问题的条件并没有说明应该如何创建数组。然后我们得到155字节的最终解

void s(int**m,int*v,int n,int h){int r=h,c=h,i=0,j,l=n-2*h-1;if(l>-1){do{*v++=m[r][c];l?(j=i/l)<1?c++:j<2?r++:j<3?c--:r--:l;}while(++i<4*l);s(m,v,n,h+1);}}

https://ideone.com/vukXQG

您只需要稍微不同地准备输入数组。

在这一点上，也许，我们会停下来。

PS 其实，在这样的比赛中，还需要一些其他的规则……因为从头开始写一个算法是一回事，另一个有点夸张的是调用现成的库函数。或者使用更“短”的语言——再次夸大其词，想象一种语言，其中增量看起来完全像summation(a,1)，没有别的:(

Python 2, 60 59 байт

Решил разбавить немного python'ом.

Логика как у @Андрей NOP, но код короче:

def f(a):return list(a[0])+f(zip(*a[1:])[::-1])if a else []

Подтверждение:

https://ideone.com/4Xmy7W

Небольшое добавление:

Пример выше реализован для Python второй версии. Для того чтобы функция работала должным образом в 3 версии нужно обернуть zip в list: list(zip(...)). Разница в том, что во второй версии zip возвращает список, а в третьей возвращает итерируемый объект.

JS，125 个字符

function f(a){for(var b=[];a.length;)b.push(...a.shift()),a.map(c=>b.push(c.pop())),a.reverse().map(c=>c.reverse());return b}

正确性证明：

function spiralRound(entryArray) {
  var exitArray = [];
  //Повторяем действие пока entryArray не останентся пустым
  while (entryArray.length) {
    //Добавление в exitArray первого вложенного массива из entryArray. 
    //shift() возвращает первый вложенный массив и удаляет его из entryArray.
    exitArray.push(...entryArray.shift());
 
    //Добавляем в exitArray каждый последний элемент из каждого оставщегося массива в entryArray.
    //pop() возвращает последний элемент массива и удаляет его из исходного 
    entryArray.map(row => exitArray.push(row.pop()));
 
    //Разворачиваем оставщийся массив на 180 градусов
    entryArray.reverse().map(row => row.reverse());
  }
  //Возвращаем результат
  return exitArray;
}

let testArray = [];
console.log("0x0:" + spiralRound(testArray));

testArray = [
  [1]
];
console.log("1x1:" + spiralRound(testArray));

testArray = [
  [1, 2],
  [3, 4]
];
console.log("2x2:" + spiralRound(testArray));

testArray = [
  [1, 2, 3, 4],
  [12, 13, 14, 5],
  [11, 16, 15, 6],
  [10, 9, 8, 7]
]
console.log("4x4:" + spiralRound(testArray));

testArray = [
  [1, 2, 3, 4, 12, 13, 14, 5, 7, 8],
  [1, 2, 3, 4, 12, 13, 14, 5, 7, 8],
  [1, 2, 3, 4, 12, 13, 14, 5, 7, 8],
  [1, 2, 3, 4, 12, 13, 14, 5, 7, 8],
  [1, 2, 3, 4, 12, 13, 14, 5, 7, 8],
  [1, 2, 3, 4, 12, 13, 14, 5, 7, 8],
  [1, 2, 3, 4, 12, 13, 14, 5, 7, 8],
  [1, 2, 3, 4, 12, 13, 14, 5, 7, 8],
  [1, 2, 3, 4, 12, 13, 14, 5, 7, 8],
  [1, 2, 3, 4, 12, 13, 14, 5, 7, 8],
]
console.log("10x10:" + spiralRound(testArray));

PHP 7.4, 124

$f=fn($a,$f)=>$a?[...array_shift($a),...$f(array_reverse($a?next($a)?array_map(null,...$a):array_chunk($a[0],1):$a),$f)]:$a;

https://3v4l.org/JDGfH

JS, 121 107 81

f=b=>b[0]?[...b.shift(),...f(b[0]?b[0].map((d,e)=>b.map(g=>g[e])).reverse():b)]:b

在不改变算法的情况下进行编辑，考虑到@Andrey NOP 的意见和建议。我将函数更改为 lambda，并将其替换b.length为b[0]，并将[]其替换为b.

演示：

f = b => b[0] 
    ? [...b.shift(), ...f(b[0] ? b[0].map((d, e) => b.map(g => g[e])).reverse() : b)] 
    : b

console.log([
    [], 
    [[1]], 
    [[1, 2], [4, 3]], 
    [[1, 2, 3], [8, 9, 4], [7, 6, 5]], 
    [[1, 2, 3, 4], [12, 13, 14, 5], [11, 16, 15, 6], [10, 9, 8, 7]], 
    [[1, 2, 3, 4], [10, 11, 12, 5],[9, 8, 7, 6]] 
].map(f))

Ruby, 61 59

def f(a) a.empty? ? [] : a.shift+f(a.transpose.reverse) end

https://ideone.com/SYmf7W

C#, 320 280

static int[]f(int[,]a){var r=new List<int>();var n=a.GetLength(0);int j=-1,i=0;bool h=true;bool d=false;int c=0;int p=n;int max=n;for(var cnt=1;cnt<=a.Length;cnt++){i=h?i:!d?++i:--i;j=!h?j:!d?++j:--j;p--;r.Add(a[i,j]);if(p<=0){h=!h;if((c+1)%2==0){d=!d;}if(cnt==n||c>1&&(c+1)%2!=0){--max;}p=max;c++;}}return r.ToArray();}

Потестить можно вот тут на deck.net

int[]F(int[,]a){var n=a.GetLength(0);var r=new int[n*n];int j=-1,i=0;var h=true;var d=!h;int o=0;int p=n;intm=n;for(varc=1;c<=a.Length;c++){p--;r[c-1]=a[h?i:!d?++i:--i,!h?j:!d?++j:--j];if(p<=0&&a.Length!=2){h=!h;if((o+1)%2==0)d=!d;if(c==n||o>1&&(o+1)%2!=0)--m;p=m;o++;}}return r;}

Внес небольшие исправления не меняя алгоритм, что бы уменьшить длину кода

Потестить можно вот тут на deck.net

Смысл в том, что я делаю реверс булевых флагов, которые показывают какие индексы в какую сторону двигать и на основании этого я обхожу массив.

Вроде бы, это должно быть эффективно нежеле алгоритмы, через повороты матриц, которые ИМХО будут не так эффективны на больших матрицах.

C、193 191 178 175 字节

int f(int n,int a[][n],int*b){int d=0,j=0,k=0,s=0,m=n-1,f=0;for(int i=0;i<n*n;i++,s++){if(s==m){d++,d%=4,s=0,f++;if(f%3==0)m--,f=1;}b[i]=!d?a[j][k++]:d==1?a[j++][k]:d==2?a[j][k--]:a[j--][k];}}

您可以在Ideone上查看代码。

第一次编辑

使除m静态之外的所有变量都摆脱了零初始化，并i从以下位置删除了变量声明for：

int f(int n,int a[][n],int *b){static int d,j,k,s,f,i;int m=n-1;for(;i<n*n;i++,s++){if(s==m){d++;d%=4;s=0;f++;if(f%3==0){m--;f=1;}}b[i]=!d?a[j][k++]:d==1?a[j++][k]:d==2?a[j][k--]:a[j--][k];}}

再次链接到 Ideone。

第二次编辑

删除了不必要的大括号，替换if为三元运算符，删除了int静态变量声明中的显式类型：

int f(int n,int a[][n],int*b){static d,j,k,s,f,i;int m=n-1;for(;i<n*n;i++,s++)s==m?d++,d%=4,s=0,f++,f%3==0?m--,f=1:m:m,b[i]=!d?a[j][k++]:d==1?a[j++][k]:d==2?a[j][k--]:a[j--][k];}

你可以在这里查看第三个版本。

第三次编辑

据我了解，不更改算法的编辑不被视为“修复”，因此我将对代码进行另一项调整：我将m其设为静态并将其初始化为for：

int f(int n,int a[][n],int*b){static d,j,k,s,f,i,m;for(m=n-1;i<n*n;i++,s++)s==m?d++,d%=4,s=0,f++,f%3==0?m--,f=1:m:m,b[i]=!d?a[j][k++]:d==1?a[j++][k]:d==2?a[j][k--]:a[j--][k];}

让我们检查第四个版本。