Магічний квадрат представляє собою квадрат масиву чисел з боковим п , що складаються з різних натуральних чисел 1, 2, ..., п ² розташовані таким чином, що сума п чисел в будь-якому горизонтальному, вертикальному або головною діагоналі завжди те саме число, яке відоме як магічна константа.

Програма повинна вводити через std-in число, яке вказує довжину сторони квадрата, а потім цифри в квадраті. Жодні числа не можуть використовуватися більше одного разу, не можна використовувати більше, ніж n ², а всі числа повинні перевищувати 0. Програма повинна визначити, чи є ця комбінація чисел магічним квадратом.

CJam, 47 39 35 33 31 байт

l~/{_1fb_,Y${\(_@=\}%:++\z}2*;=

Приймає вхід як

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

Виходить, 1якщо магічний квадрат, в 0іншому випадку.

Як це працює :

l~/                               "Evaluates the input and split the array into chunks"
                                  "of size N where N is the first integer";
   {                      }2*     "Run this code block 2 times";
    _1fb                          "Copy the 2D array and calculate sum of each row of copy";
        _,                        "Copy the array containing sum of each row and get"
                                  "its length. This is equal to N";
          Y${      }%             "Run this code block for each array of the original"
                                  "2D array that we copied from stack";
             \(_                  "Put the length number to top of stack, decrement and"
                                  "copy that";
                @=\               "Take the element at that index from each row and put"
                                  "N back behind at second position in stack";
                     :+           "Take sum of elements of the array. This is sum of"
                                  "one of the diagonals of the 2D array";
                       +          "Push diagonal sum to row sum array";
                        \z        "Bring original array to top and transpose columns";
                             ;    "At this point, the stack contain 3 arrays:"
                                  "  Array with sum of rows and main diagonal,"
                                  "  Array with sum of columns and secondary diagonal and"
                                  "  The original array. Pop the original array";
                              =   "Check if sum of rows + main diagonal array is equal to ";
                                  "sum of columns + secondary diagonal array";

Це може бути гольф далі.

Спробуйте його онлайн тут

Пітон 2: 132 символів

n,l=input()
r=range
print r(1,n*n+1)==sorted(l)*len({sum(l[i::j][:n])for(i,j)in zip(r(n)+r(0,n*n,n)+[0,n-1],[n]*n+[1]*n+[n+1,n-1])})

Приклад запуску:

STDIN: 4,[16,3,2,13,5,10,11,8,9,6,7,12,4,15,14,1]
Output: True

Перевірити дві речі:

1. Суми - це рядки, стовпці та діагоналі, всі рівні
2. Елементи є перестановкою [1,2,...,n*n].

Перший перевіряється шляхом взяття сум зрізів, що відповідають цим підмножинам. Кожен рядок, стовпець або діагональ описується його початковим значенням та переміщенням. Ми беремо список відповідного фрагмента, усікаємо до nелементів і підсумовуємо його. У [start:end:step]позначенні Python є рядки [r*n::1], стовпці, [c::n]а дві діагоналі - [0::n+1]і [n-1::n-1]. Вони зберігаються у вигляді списку 2*n+2пар, що виробляються zip.

Беремо набори сум і перевіряємо, чи має він довжину 1. Також ми сортуємо вхідні дані і перевіряємо, що це список. [1,2,...,n*n].Насправді ми поєднуємо обидва в один чек, помноживши sorted(l)на довжину суми наборів, чек, який завжди не вдається, якщо сукупність не має довжини 1.

APL, 35

∧/2=/(+⌿x,⍉x),+/↑1 1∘⍉¨x(⌽x←⎕⍴⍨,⍨⎕)

Пояснення
x←⎕⍴⍨,⍨⎕ підказка для введення, формувати його в матрицю, і призначити x
⌽перевертають матрицю вліво-вправо
x(...)Створити масив матриць: xі xзворотним
1 1∘⍉¨Для кожного з цих матриць, взяти діагональну
+/↑форму з 2 & times ; N матрицею чисел на тих , діагоналі і підсумовуйте рядки

⍉xТранспонування x
x,потім зчепити з xз освітою × 2n матриці
+⌿і підсумувати стовпці

(+⌿x,⍉x),+/↑1 1∘⍉¨x(⌽x←⎕⍴⍨,⍨⎕)об'єднатись, щоб утворити масив сум,
2=/перевірити, чи паралельні пари послідовні
∧/і І разом усі ці результати

Mathematica 128 125

d = Diagonal; r = Reverse; i = Input[];
Length@Union[Tr /@ Join[p = Partition[i[[2]], i[[1]]], 
t = Transpose@p, {d@p}, {d@t}, {d@r@p}, {d@r@t}]] == 1

Приймає такі дані, як

{4,{16, 3, 2, 13, 5, 10, 11, 8, 9, 6, 7, 12, 4, 15, 14, 1}}

Правда

APL 47 32

Використання відмінного рішення TwiNight та застосування ще певного налаштування:

∧/2=/+⌿(1 1∘⍉∘⌽,1 1∘⍉,⍉,⊢)⎕⍴⍨,⍨⎕

Пояснення:

Для цього використовуються функціональні поїзди, які були введені в v14 інтерпретатора Dyalog. APL виконується справа наліво, ⎕ - це входи, тому спочатку розміри, потім вектор чисел.

⎕⍴⍨, ⍨⎕ створює матрицю NxN

Після цього відбувається функціональний потяг, який в основному є послідовністю функцій (між дужками), застосованими до правильного аргументу. Функції:

⊢ Повертає правильний аргумент (це матриця)

Poses Транспонує правильну матрицю аргументів

1 1∘⍉ Повертає діагональ

1 1∘⍉∘⌽ Повертає діагональ зворотної (горизонтальної) матриці

Усі результати об'єднані з функцією ","

У цей момент результатом є матриця, стовпці якої потім підсумовуються (+ ⌿). Значення, отримані таким чином, перевіряються на однакові з ∧ / 2 = /

Я також залишу тут своє старе рішення:

{M←⍺ ⍺⍴⍵⋄d←M=⍉M⋄(⊃≡∪)((+/,+⌿)M),+/∘,¨d(⌽d)ר⊂M}

розмір приймає як лівий аргумент, вектор елементів як аргумент, наприклад:

4{M←⍺ ⍺⍴⍵⋄d←M=⍉M⋄(⊃≡∪)((+/,+⌿)M),+/∘,¨d(⌽d)ר⊂M}16 3 2 13 5 10 11 8 9 6 7 12 4 15 14 1
1

Можна спробувати в Інтернеті тут: www.tryapl.org

GolfScript 67 ( демонстрація )

~]:q(/q(/zip+[q()/{(\;}%]+[q((/);(;{(\;}%]+{{+}*}%.&,2<q(2?,{)}%-!*

JavaScript (E6) 194

Використання підказки для читання введення та відображення дисплея.
Тест в консолі з FireFox> 31 (Array.fill дуже новий)

z=(p=prompt)(n=p()|0).split(' '),u=Array(2*n).fill(e=d=n*(n*n+1)/2),z.map((v,i)=>(r=i/n|0,u[r+n]-=v,u[c=i%n]-=v,d-=v*(r==c),e-=v*(r+c+1==n))),o=!(e|d|u.some(v=>v)),z.sort((a,b)=>a-b||(o=0)),p(o)

Менше гольфу

n = prompt()|0; // input side length
z = prompt().split(' '); // input list of space separeted numbers  
e = d = n*(n*n+1)/2; // Calc sum for each row, column and diagonal
u = Array(2*n).fill(e), // Init check values for n rows and n columns

z.map( (v,i) => { // loop on number array 
  r = i / n | 0; // row number
  c = i % n; // column number
  u[r+n] -= v; // subtract current value, if correct it will be 0 at loop end
  u[c] -= v; 
  if (r==c) d -= v; // subtract if diagonal \
  if (r+c+1==n) e -=v; // subtract if diagonal /
}),
o=!(e|d|u.some(v=>v)); // true if values for rows, cols and diags are 0
z.sort((a,b)=>a-b||(o=0)); // use sort to verify if there are repeated values in input
alert(o);

Pyth, 24 30 байт

&q1l{sM++JcEQCJm.e@bkd_BJqSlQS

Спробуйте його онлайн тут .

&q1l{sM++JcEQCJm.e@bkd_BJqSlQSQ   Implicit: Q = evaluated 1st input (contents), E = evaluated 2nd input (side length)
                                  Trailing Q inferred
          cEQ                     Chop E into pieces or length Q
         J                        Store in J
                      _BJ         Pair J with itself with rows reversed
               m                  Map the original and it's reverse, as d, using:
                .e   d              Map each row in d, as b with index k, using:
                  @bk                 Get the kth element of b
                                  The result of this map is [[main diagonal], [antidiagonal]]
        +J                        Prepend rows from J
       +     CJ                   Prepend columns from J (transposed J)
     sM                           Sum each
    {                             Deduplicate
   l                              Length
 q1                               Is the above equal to 1?
&                                 Logic AND the above with...
                          SlQ     ... is the range [1-length(Q)]...
                         q        ... equal to...
                             SQ   ... sorted(Q)

Редагувати: виправлено помилку, завдяки @KevinCruijssen за те, що він повідомив мені: o)

LUA 186 символів

s=io.read(1)v=io.read(2)d=0 r=0 for i=1,#s do t=0 for j = 1, #s do t=t+s[i][j]end d=d+s[i][i] r=r+s[i][#s-i+1]if t ~= v then o=true end end if d~=v and r~= v then o=true end print(not o)

05AB1E , 24 байти

ô©O®øO®Å\O®Å/O)˜Ë²{¹nLQ*

Формат введення: 4\n[2,16,13,3,11,5,8,10,7,9,12,6,14,4,1,15]. Виходи 1/ 0для truthy / falsey відповідно.

Спробуйте в Інтернеті або перевірте ще кілька тестових випадків .

Пояснення:

ô       # Split the 2nd (implicit) input into parts of a size of the 1st (implicit) input
        #  i.e. [2,16,13,3,11,5,8,10,7,9,12,6,14,4,1,15] and 4
        #   → [[2,16,13,3],[11,5,8,10],[7,9,12,6],[14,4,1,15]]
 ©      # Store it in the register (without popping)
  O     # Take the sum of each row
        #  i.e. [[2,16,13,3],[11,5,8,10],[7,9,12,6],[14,4,1,15]] → [34,34,34,34]
®       # Push the matrix from the register again
 ø      # Zip/transpose; swapping rows/columns
        #  i.e. [[2,16,13,3],[11,5,8,10],[7,9,12,6],[14,4,1,15]]
        #   → [[2,11,7,14],[16,5,9,4],[13,8,12,1],[3,10,6,15]]
  O     # Sum each inner list again
        #  i.e. [[2,11,7,14],[16,5,9,4],[13,8,12,1],[3,10,6,15]] → [34,34,34,34]
®       # Push the matrix from the register again
 Å\     # Get the top-left to bottom-right main diagonal of it
        #  i.e. [[2,16,13,3],[11,5,8,10],[7,9,12,6],[14,4,1,15]] → [2,5,12,15]
   O    # Sum it together
        #  i.e. [2,5,12,15] → 34
®       # Push the matrix from the register again
 Å/     # Get the top-right to bottom-left main diagonal of it
        #  i.e. [[2,16,13,3],[11,5,8,10],[7,9,12,6],[14,4,1,15]] → [3,8,9,14]
   O    # Sum it together
        #  i.e. [3,8,9,14] → 34
)       # Wrap everything on the stack into a list
        #  → [[34,34,34,34],[34,34,34,34],34,34]
 ˜      # Flatten this list
        #  i.e. [[34,34,34,34],[34,34,34,34],34,34] → [34,34,34,34,34,34,34,34,34,34]
  Ë     # Check if all values are equal to each other
        #  i.e. [34,34,34,34,34,34,34,34,34,34] → 1 (truthy)
²       # Push the second input again
 {      # Sort it
        #  i.e. [2,16,13,3,11,5,8,10,7,9,12,6,14,4,1,15]
        #  → [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16]
  ¹n    # Push the first input again, and take its square
        #  i.e. 4 → 16
    L   # Create a list in the range [1, squared_input]
        #  i.e. 16 → [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16]
     Q  # Check if the two lists are equal
        #  i.e. [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16]
        #   and [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16] → 1 (truthy)
*       # Check if both checks are truthy by multiplying them with each other
        #  i.e. 1 and 1 → 1
        # (and output the result implicitly)