Uygun matris (bu sorun oldukça dar kapsamda için) elde edilir "sıkıştırma" bir kare matris ve her çiftin en fazla alma gelen sıralar ve sütunlar gelen elemanları.

Örneğin, aşağıdaki matris göz önüne alındığında:

4 5 6
1 7 2
7 3 0

Sen almak için onun devrik ile birleştirebilirsiniz: [[[4,5,6],[4,1,7]],[[1,7,2],[5,7,3]],[[7,3,0],[6,2,0]]]. Eğer listelerin her çifti zip varsa, aşağıdakileri edinin: [[(4,4),(5,1),(6,7)],[(1,5),(7,7),(2,3)],[(7,6),(3,2),(0,0)]]. Son adım, optimum matrisi elde etmek için her bir çiftten maksimum değeri elde etmektir:

4 5 7
5 7 3
7 3 0

Göreviniz girdi olarak verilen bir kare matrisin optimal matrisini çıkarmaktır. Matris yalnızca tamsayıları içerecektir. G / Ç herhangi bir makul formatta yapılabilir. Bayt cinsinden en kısa kod (UTF-8 veya dilin özel kodlamasında) kazanır!

Testler

[[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]]

Jöle , 2 bayt

»Z

Çevrimiçi deneyin!

Nasıl çalışır

»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 bayt

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

Çevrimiçi deneyin!

Ben ungolf şöyle olurdu:

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

... çok daha zarif.

Kabuk , 5 4 bayt

Boğmaca, daha ‡önce hiç kullanmadım (veya †):

S‡▲T

Çevrimiçi deneyin!

açıklama

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

Oktav , 13 bayt

@(A)max(A,A')

Çevrimiçi deneyin!

MATL , 6 bayt

t!2$X>

Çevrimiçi deneyin!

Açıklama:

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

APL (Dyalog Unicode) , 3 bayt

Anonim zımni önek fonksiyonu.

⊢⌈⍉

Çevrimiçi deneyin!

⊢ tartışma

⌈ tavan ile

⍉ aktarılmış tartışma

JavaScript (ES6), 48 bayt

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

Test senaryoları

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 bayt

Ön ek önek işlevi.

>.|:

Çevrimiçi deneyin!

>. [argümanın] tavanı

|: aktarılmış argüman

Japt , 12 10 8 bayt

Bak anne, aktarma ya da sıkıştırma yok!

£XËwUgEY

Dene

CJam , 8 bayt

{_z..e>}

Girişi yığından alan ve çıktıyla değiştiren anonim blok (işlev).

Çevrimiçi deneyin! Veya tüm test senaryolarını doğrulayın .

açıklama

{      }    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 bayt

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

Çevrimiçi deneyin!

Bu diğer cevapların çoğuna eşdeğerdir. Bununla birlikte, R'nin maxiki yaygın senaryo için iki ayrı işlevi vardır :

maxve minbağımsız değişkenlerinde bulunan tüm değerlerin maksimum veya minimum değerlerini, tümü mantıksal veya tamsayı ise, tümü sayısal ise çift, aksi takdirde karakter döndürür.

pmaxve pminbir veya daha fazla vektörü (veya matrisi) bağımsız değişken olarak alın ve vektörlerin 'paralel' maksimumlarını (veya minimumlarını) veren tek bir vektör döndürün. Sonucun ilk öğesi, tüm bağımsız değişkenlerin ilk öğelerinin maksimum (minimum) değeri, sonucun ikinci öğesi, tüm bağımsız değişkenlerin ikinci öğelerinin maksimum değeri (minimum) vb. Gerekirse daha kısa girişler (sıfır olmayan uzunlukta) geri dönüştürülür.

Temiz , 58 bayt

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

Bunun bir açıklamaya ihtiyacı olduğunu sanmıyorum.

Çevrimiçi deneyin!

C (gcc) , 79 77 bayt

• Steadybox sayesinde iki bayt tasarruf edildi ; bu zorluktaki tüm matrisler kare olduğu için sadece bir matris boyut parametresi alır.

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]);}

Çevrimiçi deneyin!

Düz bir tamsayı dizisi Ave giriş olarak matris boyutunu n(matrisin kare olması gerektiği gibi) alır. Stdout'a düz tamsayı dizi dizesi temsili çıktılar.

Julia 0.6 , 13 bayt

max.işlevi maxbağımsız değişkenlerine öğe olarak uygular.

a->max.(a,a')

Çevrimiçi deneyin!

05AB1E , 7 bayt

ø‚øεøεà

Çevrimiçi deneyin!

açıklama

ø         # 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

Jöle , 7 bayt

żZZṀ€$€

Çevrimiçi deneyin!

Python 2 , 45 bayt

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

Çevrimiçi deneyin!

Tamamen insanlık sayesinde birkaç bayt kurtardı.

Pari / GP , 21 bayt

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

Çevrimiçi deneyin!

Wolfram Dili (Mathematica) , 23 bayt

Pari / GP cevabımın bir portu .

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

olduğunu \[Transpose].

Çevrimiçi deneyin!

Mathematica , 30 bayt

Jonathan Frech sayesinde -8 bayt.

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

Çevrimiçi deneyin!