Матриця оптимальної (для досить вузької рамки даного завдання) виходять «стиснути» елементи з відповідних рядків і стовпців квадратної матриці і отримувати максимум з кожної пари.

Наприклад, дано таку матрицю:

4 5 6
1 7 2
7 3 0

Ви можете комбінувати його з транспонованою отримати: [[[4,5,6],[4,1,7]],[[1,7,2],[5,7,3]],[[7,3,0],[6,2,0]]]. Якщо ви промайнути кожну пару списків, ви отримаєте наступне: [[(4,4),(5,1),(6,7)],[(1,5),(7,7),(2,3)],[(7,6),(3,2),(0,0)]]. Останній крок - отримати максимум кожної пари для отримання оптимальної матриці:

4 5 7
5 7 3
7 3 0

Ваше завдання - вивести оптимальну матрицю квадратної матриці, задану як вхідний. Матриця буде містити лише цілі числа. Введення / виведення можна зробити в будь-якому розумному форматі. Виграє найкоротший код у байтах (або в UTF-8, або в спеціальному кодуванні мови)!

Тести

[[172,29], [29,0]] -> [[172,29], [29,0]]
[[4,5,6], [1,7,2], [7,3,0]] -> [[4,5,7], [5,7,3], [7,3,0 ]]
[[1,2,3], [1,2,3], [1,2,3]] -> [[1,2,3], [2,2,3], [3,3,3 ]]
[[4,5, -6], [0,8, -12], [- 2,2,4]] -> [[4,5, -2], [5,8,2], [- 2,2,4]]

Желе , 2 байти

»Z

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

Як це працює

»Z  Main link. Argument: M (integer matrix)

 Z  Zip the rows of M, transposing rows and columns.
»   Take the maxima of all corresponding integers.

Haskell , 40 байт

z(z max)<*>foldr(z(:))e
e=[]:e
z=zipWith

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

Я скасую це як:

import Data.List
f m = zipWith (zipWith max) m (transpose m)

... що набагато елегантніше.

Лушпиння , 5 4 байти

Whoop, ніколи не використовувався ‡раніше (або †):

S‡▲T

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

Пояснення

S  T -- apply the function to itself and itself transposed
 ‡▲  -- bi-vectorized maximum

Октава , 13 байт

@(A)max(A,A')

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

MATL , 6 байт

t!2$X>

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

Пояснення:

t        % Duplicate the input.
!        % Transpose the duplicate.
2$X>     % Elementwise maximum of the two matrices.

APL (Dyalog Unicode) , 3 байти

Функція анонімного мовчазного префікса.

⊢⌈⍉

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

⊢ аргумент

⌈ стеля з

⍉ перенесений аргумент

JavaScript (ES6), 48 байт

m=>m.map((r,y)=>r.map((v,x)=>v>(k=m[x][y])?v:k))

Тестові справи

let f =

m=>m.map((r,y)=>r.map((v,x)=>v>(k=m[x][y])?v:k))

console.log(JSON.stringify(f([[172,29],[29,0]]            ))) // -> [[172,29],[29,0]]
console.log(JSON.stringify(f([[4,5,6],[1,7,2],[7,3,0]]    ))) // -> [[4,5,7],[5,7,3],[7,3,0]]
console.log(JSON.stringify(f([[1,2,3],[1,2,3],[1,2,3]]    ))) // -> [[1,2,3],[2,2,3],[3,3,3]]
console.log(JSON.stringify(f([[4,5,-6],[0,8,-12],[-2,2,4]]))) // -> [[4,5,-2],[5,8,2],[-2,2,4]]

J , 4 байти

Мовчазна префіксальна функція.

>.|:

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

>. стеля [аргументу] с

|: перенесений аргумент

Japt , 12 10 8 байт

Подивися, ма, не перекладаючи та не перекладаючи!

£XËwUgEY

Спробуй це

CJam , 8 байт

{_z..e>}

Анонімний блок (функція), який приймає вхід зі стека і замінює його на вихід.

Спробуйте в Інтернеті! Або перевірити всі тестові випадки .

Пояснення

{      }    e# Define block
 _          e# Duplicate
  z         e# Zip
   .        e# Apply next operator to the two arrays, item by item
            e# (that is, to rows of the two matrices)
    .       e# Apply next operator to the two arrays, item by item
            e# (that is, to numbers of the two rows)
     e>     e# Maximum of two numbers

R , 23 байти

function(A)pmax(A,t(A))

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

Це рівнозначно більшості інших відповідей. Однак R має дві різні maxфункції для двох загальних сценаріїв:

maxі minповернути максимум або мінімум усіх значень, присутніх у їхніх аргументах, як ціле число, якщо всі є логічними або цілими, як подвійне, якщо всі числові, а символ в іншому випадку.

pmaxі pminвізьміть один або кілька векторів (або матриць) як аргументи і поверніть один вектор, даючи «паралельні» максимуми (або мінімуми) векторів. Перший елемент результату - це максимум (мінімум) перших елементів усіх аргументів, другий елемент результату - це максимум (мінімум) другого елемента всіх аргументів тощо. Коротші входи (ненульової довжини) при необхідності переробляються.

Чисто , 58 байт

import StdEnv,StdLib
@l=zipWith(zipWith max)(transpose l)l

Я не думаю, що це потребує пояснень.

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

C (gcc) , 79 77 байт

• Збережено два байти завдяки Steadybox ; тільки приймаючи один параметр розмірності матриці, оскільки всі матриці в цьому виклику є квадратними.

j,i;f(A,n)int*A;{for(j=0;j<n*n;j++)printf("%d,",A[A[j]>A[i=j/n+j%n*n]?j:i]);}

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

Бере плоский цілий масив Aі розмір матриці n(оскільки матриця повинна бути квадратною) як вхідний. Виводить рівне ціле представлення рядка масиву в stdout.

Джулія 0,6 , 13 байт

max.застосовує функцію maxпоетапно до її окружок.

a->max.(a,a')

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

05AB1E , 7 байт

ø‚øεøεà

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

Пояснення

ø         # transpose input matrix
 ‚        # pair with original matrix
  ø       # zip together
   ε      # apply on each sublist ([[row],[transposed row]])
    ø     # zip
     ε    # apply on each sublist (pair of elements)
      à   # extract greatest element

Желе , 7 байт

żZZṀ€$€

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

Python 2 , 45 байт

lambda k:[map(max,*c)for c in zip(k,zip(*k))]

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

Завдяки абсолютнолюдському за кілька збережених байтів.

Парі / GP , 21 байт

m->(m+m~+abs(m-m~))/2

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

Мова Вольфрама (Mathematica) , 23 байти

Порт моєї відповіді Pari / GP .

(#+#+Abs[#-#])/2&

є \[Transpose].

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

Математика , 30 байт

-8 байт завдяки Джонатану Фреху.

Map@Max/@t/@t@{#,t@#}&
t=#&

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