최적 행렬 (이 도전 다소 좁은 범위에 대한)에 의해 얻어지는 「완봉」정방 행렬과 각 쌍의 최대 값을 얻는 상응하는 행과 열에서 엘리먼트.

예를 들어, 다음 행렬이 주어집니다.

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

당신의 임무는 입력으로 주어진 정사각형 행렬의 최적 행렬을 출력하는 것입니다. 행렬에는 정수만 포함됩니다. I / O는 합리적인 형식으로 수행 할 수 있습니다. 가장 짧은 바이트 코드 (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.

하스켈 , 40 바이트

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

온라인으로 사용해보십시오!

나는 이것을 다음과 같이 풀다 :

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

... 아주 훨씬 더 우아합니다.

껍질 , 5 4 바이트

멍청이, 전에는 사용하지 않아도됩니다 ‡(또는 †) :

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 바이트

익명의 암묵적 접두사 기능.

⊢⌈⍉

온라인으로 사용해보십시오!

⊢ 논의

⌈ 와 천장

⍉ 전치 된 논쟁

자바 스크립트 (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인수로 하나 또는 그 이상의 벡터 (또는 매트릭스)를 받아 벡터의 '평행'최대 값 (또는 최소값)을 제공하는 단일 벡터를 리턴한다. 결과의 첫 번째 요소는 모든 인수의 첫 번째 요소의 최대 값 (최소값)이고 결과의 두 번째 요소는 모든 인수의 두 번째 요소의 최대 값 (최소값)입니다. 필요한 경우 짧은 길이의 입력 (0이 아닌 길이)이 재활용됩니다.

클린 , 58 바이트

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

나는 이것이 설명이 필요하다고 생각하지 않습니다.

온라인으로 사용해보십시오!

C (gcc) , 79 77 바이트

• Steadybox 덕분에 2 바이트를 절약했습니다 . 이 챌린지의 모든 행렬이 정사각형이므로 하나의 행렬 차원 매개 변수 만 사용합니다.

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으로 출력합니다.

Julia 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Ṁ€$€

온라인으로 사용해보십시오!

파이썬 2 , 45 바이트

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

온라인으로 사용해보십시오!

몇 바이트를 절약 한 완전히 인간 덕분에.

Pari / GP , 21 바이트

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

온라인으로 사용해보십시오!

Wolfram Language (Mathematica) , 23 바이트

내 Pari / GP 답변 의 포트 .

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

입니다 \[Transpose].

온라인으로 사용해보십시오!

Mathematica , 30 바이트

Jonathan Frech 덕분에 -8 바이트

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

온라인으로 사용해보십시오!