_{Цей виклик натхненний цим , тепер видаленим запитанням.}

Візьміть додаткове ціле число N як вхідне та виведіть матрицю з числами 1 .. N ^2, яка відповідає наведеному нижче шаблону:

Заповніть перший рядок 1 .. N, а потім заповніть останній рядок (номер рядка N ) цифрою (N + 1) .. 2N , потім заповніть другий ряд (2N + 1) .. 3N і продовжуйте, поки ви не заповнили всі ряди.

Формат виводу є гнучким, тому приймаються списки списків тощо.

N = 1
1

N = 2
1  2
3  4

N = 3
1  2  3
7  8  9
4  5  6

N = 4
 1  2  3  4
 9 10 11 12
13 14 15 16
 5  6  7  8

N = 5
 1  2  3  4  5
11 12 13 14 15
21 22 23 24 25
16 17 18 19 20
 6  7  8  9 10

Діють стандартні правила. Найкоротша відповідь у байтах на кожній мові виграє. Пояснення заохочуються, як завжди.

05AB1E , 13 8 байт

Збережено 5 байт завдяки Роду

nLô«āÉÏ

Спробуйте в Інтернеті!

Пояснення

n           # push input^2
 L          # push range [1 ... input^2]
  ô         # split into pieces each the size of the input
   «       # append the reverse of this 2D-list
     ā      # push range [1 ... len(list)]
      É     # check each element for oddness
       Ï    # keep only the elements in the 2D list which are true in this list

Рубін , 53 байти

->n{r=*1..n*n;n.times{|x|p r.slice!(r[x*=n]?x:-n,n)}}

Пояснення:

Покладіть спочатку всі числа в один масив, а потім наріжте масив, пропускаючи рядок для кожної ітерації. Після перших (n / 2 + n% 2) ітерацій не залишається нічого іншого, а потім повернути всі решта рядків назад.

Спробуйте в Інтернеті!

Python 2 , 75 байт

def f(n):a=range(n);print[[i*n-~j for j in a]for i in a[::2]+a[~(n%2)::-2]]

Спробуйте в Інтернеті!

JavaScript, 68 байт

Відредагуйте 3 байти, збережені під назвою @ user71546

Спершу спробуйте, дотримуючись очевидного маршруту: порахуйте від 1 і заповніть масив з обох сторін - від зовнішньої до внутрішньої

n=>(v=0,q=[...Array(n)]).map((_,i)=>q[i&1?--n:i/2]=q.map(_=>++v))&&q

Тест

var F=
n=>(v=0,q=[...Array(n)]).map((_,i)=>q[i&1?--n:i/2]=q.map(_=>++v))&&q

function test() {
  var n=+N.value;
  O.innerHTML = '<tr><td>'
  +F(n).map(r=>r.join('</td><td>')).join('</td></tr><tr><td>')
  +'</td></tr>'
}

test()

#O { margin: 1em }
td { text-align: right }

<input id=N type=number min=1 value=5 oninput='test()'>
<table id=O>

Хаскелл , 62 байти

(0#)
m#n|m>=n^2=[]|k<-m+n=[m+1..k]:(k+n)#n++[[k+1..k+n]|k<n^2]

Спробуйте в Інтернеті! Вихід - це список списків, наприклад, (0#) 3урожайність [[1,2,3],[7,8,9],[4,5,6]].

> <> , 51 + 3 = 54 47 байт

:&v
?!\1-:&:&*}}r:
 ~\
!~>1+::n&:&%:a84*@@?$~o?

Спробуйте в Інтернеті!

Введення очікується вверху стеку при запуску програми з використанням -vпрапора. Вихід складається з нерівневих чисел, розділених окремими пробілами, і кожен рядок відокремлений одним новим рядком. Приклад виводу для N=5:

1 2 3 4 5
11 12 13 14 15
21 22 23 24 25
16 17 18 19 20
6 7 8 9 10

... слідом за єдиним новим рядком. Програма закінчується помилкою ( something smells fishy...), але це на STDERR, а не на STDOUT.

Пояснення:

Перший рядок просто зберігає копію Nреєстру.

Другий рядок створює зміщення для кожного вихідного рядка, віднімаючи 1 з N, множимо це на N, обертаючи його в нижній частині стека і потім повертаючи всю стек. Коли число вгорі стека досягає 0, стек повинен виглядати приблизно так (приклад використовує N=5):

5 15 20 10 0 0

Третій рядок відкидає дублікат 0у верхній частині стека.

Четвертий рядок збільшує верхню частину стека і виводить його копію. Потім використовується мод N, і він використовується для вирішення питання про те, чи слід друкувати пробіл чи новий рядок, і чи слід відкинути верхню частину стека - якщо надруковано останнє число x, то x mod N == 0вказує, що кінець цього рядка виводу досягнуто . Виконання завершується, коли 1+він виконується в порожній стек, видаючи помилку завершення.

Попередня версія

Це явно перевірило наявність порожнього стека для завершення виконання, і я також включав 3 байти для використання -vпрапора.

:&v
?!\1-:&:&*}}r:
 ~\
!;>1+::n&:&%:a84*@@?$~o?!~l?

Спробуйте в Інтернеті!

Perl 5 , -p 52 51 байт

#!/usr/bin/perl -p
map{$|--?$\="@0
".$\:say"@0";$_+=@0for@0}@0=1..$_}{

Спробуйте в Інтернеті!

Java (OpenJDK 9) , 101 байт

n->{int x[][]=new int[n][n],i=0,j;for(;i<n;i++)for(j=0;j<n;)x[i%2<1?i/2:n+~i/2][j]=++j+i*n;return x;}

Спробуйте в Інтернеті!

Кредити

• -4 байти завдяки Kevin Cruijssen .

JavaScript (ES6), 69 68 байт

n=>[...Array(n)].map((_,i,a,j=((i*=2)<n?i:n+n+~i)*n)=>a.map(_=>++j))

Ну, це перевершило ще до того, як я міг його опублікувати, але ось це все одно. Редагувати: Збережено 1 байт завдяки @KevinCruijssen.

Желе , 10 байт

²ss2Ṛj@/Fs

Спробуйте в Інтернеті!

Як це працює

²ss2Ṛj@/Fs  Main link. Argument: n

²           Square; yield n².
 s          Split; promote n² to [1, ..., n²] and split it into chuks of length n.
  s2        Split 2; generate all non-overlapping pairs of chunks.
            If n is odd, this leaves a singleton array at the end.
    Ṛ       Reverse the order.
     j@/    Reduce by join with reversed arguments.
            In each step, this places the first and second element of the next pair
            at the top and bottom of the accumulator.
        Fs  Flatten and split to restore the matrix shape.

Стакс , 10 байт

│æ╘▐⌡r▌═∟Y

Запустити та налагодити його в Інтернеті

Відповідне представлення ascii тієї ж програми - 12 символів.

JRx/r{]+rFmJ

Ось як це працює.

JR              range [1 .. x^2] where x=input
  x/            split into subarrays of size x
    r           reverse
     {   F      for each subarray, execute block
      ]+r       concat array, and reverse result
          m     for each row, output ...
           J        each subarray joined by spaces

Желе , 13 ... 6 байт

Дякую JonathanAllan за -1 байт!

²sm0m2

Спробуйте в Інтернеті!

Використовуйте ідентичний алгоритм відповіді 05AB1E.

R , 70 59 47 байт

function(n)matrix(1:n^2,n,,T)[c(1:n,n:1)*!0:1,]

Спробуйте в Інтернеті!

Дякую Робіну Райдеру за 4-байтний гольф, який я потім гольфував далі.

Повертає матрицю; будує matrixпослідовність, наприклад [[1 2 3] [4 5 6] [7 8 9]], потім переставляє рядки.

Python 2 , 72 68 63 байт

^{-4 байти завдяки Нілу}

def f(n):w=zip(*[iter(range(1,n*n+1))]*n);print(w+w[::-1])[::2]

Спробуйте в Інтернеті!

Октава , 102 байти

n=input('');A=B=vec2mat(1:n*n,n);i=j=0;do
B(++i,:)=A(++j,:);if++j<n
B(n-i+1,:)=A(j,:);end;until j>=n
B

Спробуйте в Інтернеті!

C (gcc) , 110 байт

i,c,t,b;f(a,n)int*a;{for(b=n-1;i<n*n;t++,b--){for(c=0;c<n;)a[t*n+c++]=++i;for(c=0;c<n&i<n*n;)a[b*n+c++]=++i;}}

Спробуйте в Інтернеті!

Заповнює масив, чергуючи 2 індекси для рядків: один індекс, що починається вгорі, і один починається внизу. Індекс верхнього ряду починається з 0 і збільшується кожні 2 ряди; індекс нижнього ряду починається з n-1 і зменшується кожні 2 ряди.

Безголівки:

void f(int* a, int n)
{
    //i = value to be written [1,n]; c = column index; t = top row index; b = bottom row index
    for(int i=1, c=0, t=0, b=n-1;
        i <= n*n; //when i = n*n, we have written all the values and we're done
        t++, b--) //t increments every 2 rows, b decrements every 2 rows
    {
        //write out 2 rows per loop

        //first row: fill out row at t
        for(c=0; c<n; c++, i++)
            a[t*n+c]=i;

        //second row: fill out row at b
        //this step will be skipped on the final loop for odd values of n, hence the (i<=n*n) test
        for(c=0; c<n && i<=n*n; c++, i++) 
            a[b*n+c]=i;
    }
}

C ++ + Діапазон V3 , 159 байт

#include<range/v3/all.hpp>
using namespace ranges::view;

[](int n){auto r=iota(1,n*n+1)|chunk(n);return concat(r|stride(2),r|reverse|drop(n%2)|stride(2));}

Наживо на Wandbox

Не рахуючи двох нових рядків після using namespace range::view; вони просто там, щоб відокремити імпорт від лямбда.

Помітно цікавий факт: це рішення не дає виділень купу. Це вирішує проблему в O(1)просторі.

Пояснення:

1. iota(1, n*n+1) -> [1 ... n*n]
2. chunk(n): всі nелементи разом, так[1 ... n] [n+1 ... 2*n] ...
3. Назвіть це r
4. r | stride(2): взяти кожен інший елемент: [1 ... n] [2*n+1...] ...
5. поєднайте це з:
6. r | reverse | drop(n % 2): reverse, тоді викиньте [1 ... n]термін if nнепарний (рядок буде непарна кількість, і ми хочемо надрукувати перший термін лише один раз). Здається, я мав би вміти просто робити r | reverse | take, але це чомусь не працює.
7. stride(2)знову візьміть кожен інший елемент. Цього разу це навпаки.

Більш зрозумілі та перевірені:

#include <range/v3/all.hpp>
using namespace ranges::view;

auto f(int n)
{
    auto rows = iota(1, n * n + 1)
        | chunk(n);
    return concat(
        rows | stride(2),
        rows
            | reverse
            | drop(n % 2)
            | stride(2));
}

#include <iostream>
int main(int argc, char** argv)
{
    std::cout << "N = " << argc << '\n';
    auto res = f(argc);

    for (auto const& row : res | bounded) {
        for (auto const& elem : row | bounded) {
            std::cout << elem << ' ';
        }
        std::cout << '\n';
    }
}

Желе , 11 байт

s2ZU2¦Ẏị²s$

Спробуйте в Інтернеті!

CJam , 22 байти

ri__*,:)/2/z[1W].{%:p}

Спробуйте в Інтернеті!

C (gcc) 80 78

Я бачу, зараз це рішення неправильне

i;f(n){for(i=0;i++<n*n;printf("\n%3d"+!!(~-i%n),i>n?n+(i+n>n*n?i%n?:n:i):i));}

Спробуйте в Інтернеті!

C (gcc) , 36 + 8 + 61 = 105 байт

компілювати с -Dp=printf("%d ",i),i++%n;);puts("") -Dq=i,n)

f(q{g(1,i);}g(q{for(;p;i<n*n&&h(q;}h(q{for(n+i<n*n&&g(n+q;p;}

Спробуйте в Інтернеті!