เมทริกซ์ที่ดีที่สุด (สำหรับขอบเขตค่อนข้างแคบ ๆ ของความท้าทายนี้) จะได้รับโดย "ซิป" องค์ประกอบจากแถวที่สอดคล้องกันและคอลัมน์ของตารางเมทริกซ์และได้รับสูงสุดของแต่ละคู่

ตัวอย่างเช่นให้เมทริกซ์ต่อไปนี้:

4 5 6
1 7 2
7 3 0

คุณสามารถรวมมันเข้ากับ transpose เพื่อรับ: [[[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.

Haskell , 40 ไบต์

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

ลองออนไลน์!

ฉันจะถอดคำนี้ออกเป็น:

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

... ซึ่งงดงามกว่านี้มาก

Husk , 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 ไบต์

ฟังก์ชันนำหน้าเงียบโดยไม่ระบุชื่อ

⊢⌈⍉

ลองออนไลน์!

⊢ การโต้เถียง

⌈ เพดานด้วย

⍉ อาร์กิวเมนต์ transposed

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 ไบต์

ฟังก์ชั่นนำหน้า Tacit

>.|:

ลองออนไลน์!

>. เพดาน [ของอาร์กิวเมนต์] ด้วย

|: อาร์กิวเมนต์ transposed

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

Julia 0.6 , 13 ไบต์

max.ใช้ฟังก์ชันmaxelementwise กับการแก้ปัญหา

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

ลองออนไลน์!

ขอขอบคุณมนุษย์โดยรวมที่บันทึกไว้ไม่กี่ไบต์

Pari / GP , 21 ไบต์

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

ลองออนไลน์!

ภาษา Wolfram (Mathematica)ขนาด 23 ไบต์

พอร์ตของฉันคำตอบ Pari / GP

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

\[Transpose]เป็น

ลองออนไลน์!

Mathematicaขนาด 30 ไบต์

-8 ไบต์ขอบคุณ Jonathan Frech

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

ลองออนไลน์!