ให้เมทริกซ์ที่ไม่ว่างเปล่าของจำนวนเต็มแบบไม่ลบคำตอบที่แถวที่ไม่ซ้ำกันส่วนใหญ่รวมกับผลรวมขององค์ประกอบในเมทริกซ์

ตอบโดยการบ่งชี้ที่สมเหตุสมผลเช่นมาสก์ของลำดับแถวที่ไม่ซ้ำกันของการปรากฏตัว (หรือเรียงลำดับ) หรือดัชนี (เป็นศูนย์หรือหนึ่งตาม) ของเหล่านั้นหรือ submatrix ประกอบด้วยแถว (ในลำดับใด ๆ ) หรือบางส่วน ชนิดของพจนานุกรมสร้าง ... - แต่อธิบายเถอะ!

ตัวอย่าง

[[1,2,3],[2,0,4],[6,3,0],[2,0,4],[6,3,0],[2,0,4]]:

แถวที่ไม่ซ้ำกัน[1,2,3], [2,0,4]และ[6,3,0]แต่ละคนตามลำดับที่เอื้อต่อ 6, 6 และ 9 ในแต่ละครั้งที่พวกเขาเกิดขึ้น อย่างไรก็ตามพวกเขาเกิดขึ้นหนึ่งครั้งสามครั้งและสองครั้งตามลำดับดังนั้นสิ่งที่เกิดขึ้นทั้งหมดของพวกเขามีส่วนร่วม 6, 18 และ 18 รวมทั้งหมด (42) ดังนั้นสองแถวหลังเป็นแถวที่มีส่วนมากที่สุด คำตอบที่ถูกต้องคือ:

[false,true,true] มาสก์ในลักษณะ / ลำดับการจัดเรียงหรือ
[1,2]/ [2,3] ศูนย์ / ดัชนีหนึ่งฐานของด้านบนหรือ
[[2,0,4],[6,3,0]] แถวที่แท้จริง
⋮

[[1,2],[3,1],[2,3],[1,2],[3,1],[2,3],[1,2]]

[false,false,true](สั่งลักษณะ) / [false,true,false](เรียงลำดับ)
[2]/ [3](สั่งลักษณะ) / [1]/ [2](เรียงลำดับ)
[[2,3]]
⋮

เยลลี่ 5 ไบต์

Ġị§§M

ลองออนไลน์!

1-based indices ขององค์ประกอบเฉพาะที่เรียงลำดับของ input

Pyth , 9 ไบต์

-1 ต้องขอบคุณ FryAmTheEggman!

{s.MssZ.g

ลองออนไลน์!

R , 64 ไบต์

function(M)max(x<-tapply(rowSums(M),apply(M,1,toString),sum))==x

ลองออนไลน์!

ส่งคืนเวกเตอร์บูลีนที่มี TRUE / FALSE เรียงตามลำดับ (lexicographic)
แถวที่ไม่ซ้ำกันจะแสดงเป็นชื่อเวกเตอร์ดังนั้นจึงง่ายต่อการระบุแถวที่มีประโยชน์มากที่สุด

Python 3 , 153 145 129 ไบต์

-8 ไบต์ขอบคุณ @Mr Xcoder!

from itertools import*
def f(l):a=[[sum(map(sum,[*s])),k]for k,s in groupby(sorted(l))];return[v[1]for v in a if v[0]==max(a)[0]]

ลองออนไลน์!

Haskell, 60 ไบต์

import Data.Lists
f x=nub$argmaxes(\e->sum e*countElem e x)x

ส่งคืนรายการของแถว

ถ่าน 25 ไบต์

ＩΦθ∧⁼κ⌕θι⁼×№θιΣι⌈Ｅθ×№θλΣλ

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด รูปแบบผลลัพธ์เริ่มต้นคือองค์ประกอบของแต่ละแถวในบรรทัดและแถวสองแถว คำอธิบาย:

  θ                         Input array
 Φ                          Filtered where
     κ                      Current index
    ⁼                       Equals
      ⌕                     First index of
        ι                   Current row
       θ                    In input array
   ∧                        Logical And
           №                Count of
             ι              Current row
            θ               In input array
          ×                 Multiplied by
              Σ             Sum of
               ι            Current row
         ⁼                  Equals
                ⌈           Maximum of
                  θ         Input array
                 Ｅ          Mapped over rows
                    №       Count of
                      λ     Current row
                     θ      In input array
                   ×        Multiplied by
                       Σ    Sum of
                        λ   Current row
Ｉ                           Cast to string
                            Implicitly printed

Mathematica, 48 ไบต์

Last[SortBy[Gather[m], Total[Flatten[#]] &]][[1]]

หรือ

TakeLargestBy[Gather[m], Total[#, 2] &, 1][[1, 1]]

โดยที่ (ตัวอย่าง)

m = {{1, 2, 3}, {2, 0, 4}, {7, 9, 5}, {6, 3, 0}, {2, 0, 4}, 
     {6, 3, 0}, {2, 0, 4}, {7, 9, 5}};

JavaScript (ES6), 88 ไบต์

ส่งออกอาร์เรย์ของค่าบูลีนตามลำดับที่ปรากฏ

m=>m.map(h=o=r=>h=(v=o[r]=~~o[r]+eval(r.join`+`))<h?h:v)&&Object.keys(o).map(x=>o[x]==h)

ลองออนไลน์!

Groovyขนาด 76 ไบต์

{l->m=l.toSet().sort().collect{it.sum()*l.count(it)}
m.collect{it==m.max()}}

ลองออนไลน์!

ส่งคืนเป็น booleans ตามลำดับ

สกาลา , 63 ไบต์

l=>{var m=l.distinct.map(n=>n.sum*l.count(n==))
m.map(m.max==)}

ลองออนไลน์!

ส่งคืนบูลีนตามลำดับที่ปรากฏ

APL (Dyalog Unicode) ขนาด 12 ไบต์

(⌈/=⊢)+.×∘⍴⌸

ลองออนไลน์!

-2 ขอบคุณที่อดัม -1 ด้วยรูปแบบเอาต์พุตอื่น

ภาษา Wolfram (Mathematica) , 42 ไบต์

#~Position~Max@#&@(Total[#,2]&/@Gather@#)&

ลองออนไลน์!

Python 2 , 81 78 ไบต์

lambda a:{u for u in a if a.count(u)*sum(u)==max(a.count(t)*sum(t)for t in a)}

ลองออนไลน์!

3 ไบต์ขอบคุณไปยัง ดำนกฮูกไก่

กำหนดคอลเลกชันของ tuples ผลลัพธ์คือชุดของสิ่งอันดับที่มีคุณสมบัติสูงสุดที่ต้องการ

JaptP , 13 11 ไบต์

-2 ไบต์จาก @Shaggy

ü¬®xx
m¥Urw

ลองออนไลน์!

C # (Visual C # Interactive Compiler) , 126 ไบต์

n=>{var i=n.OrderBy(a=>a.Sum()*n.Count(a.SequenceEqual));return i.Where((a,b)=>i.Take(b).Count(a.SequenceEqual)<1).Reverse();}

ลองออนไลน์!

ส่วนใหญ่ของรหัสนี้จะถูกใช้เพื่อดึงค่าที่ซ้ำกันทั้งหมดเนื่องจากตัวเปรียบเทียบเริ่มต้นสำหรับรายการจะไม่เปรียบเทียบค่าภายในรายการ นั่นหมายความว่าฉันไม่สามารถใช้Distinct(), GroupBy()หรือContainsการกรองรายการ

K (ngn / k) , 17 ไบต์

{&a=|/a:+//'x@=x}

ลองออนไลน์!

{ } ฟังก์ชั่นที่มีข้อโต้แย้ง x

=x กลุ่ม - จัดทำพจนานุกรมที่มีคีย์เป็นแถวและค่าต่าง ๆ เป็นรายการดัชนีในเมทริกซ์

x@จัดทำดัชนีเมทริกซ์ดั้งเดิมด้วย ผลลัพธ์จะเป็นพจนานุกรมอีกครั้งโดยมีแถวเป็นคีย์ ค่าคือสำเนาหลายชุดของคีย์ที่เกี่ยวข้อง

+//' ผลรวมจนกว่าการบรรจบกัน (ทำหน้าที่เฉพาะในค่า; ปุ่มยังคงอยู่ตามที่พวกเขาเป็น)

a: มอบหมายให้ a

|/ สูงสุด (ของค่า)

a=|/a พจนานุกรมแบบ row-to-boolean ซึ่งแถวใดมีส่วนร่วมมากที่สุด

& "ที่ไหน" คือกุญแจที่สอดคล้องกับค่า 1

Japt, 11 10 ไบต์

ü¬ü_xxÃÌmâ

เปิดใช้งานออนไลน์

05AB1E , 10 9 ไบต์

ês{γOOZQÏ

ลองมันออนไลน์หรือตรวจสอบกรณีทดสอบทั้งหมด

คำอธิบาย:

ê          # Sort and uniquify the (implicit) input list of lists
           #  i.e. [[2,0,4],[1,2,3],[6,3,0],[2,0,4],[6,3,0],[2,0,4]]
           #   → [[1,2,3],[2,0,4],[6,3,0]]
 s         # Swap so the (implicit) input list of lists is at the top again
  {        # Sort it
           #  i.e. [[2,0,4],[1,2,3],[6,3,0],[2,0,4],[6,3,0],[2,0,4]]
           #   → [[1,2,3],[2,0,4],[2,0,4],[2,0,4],[6,3,0],[6,3,0]]
   γ       # Group the sorted list of lists
           #  i.e. [[1,2,3],[2,0,4],[2,0,4],[2,0,4],[6,3,0],[6,3,0]]
           #   → [[[1,2,3]],[[2,0,4],[2,0,4],[2,0,4]],[[6,3,0],[6,3,0]]]
    O      # Take the sum of each inner-most lists
           #  i.e. [[[1,2,3]],[[2,0,4],[2,0,4],[2,0,4]],[[6,3,0],[6,3,0]]]
           #   → [[6],[6,6,6],[9,9]]
     O     # Take the sum of each inner list
           #  i.e. [[6],[6,6,6],[9,9]] → [6,18,18]
      Z    # Get the max (without popping the list of sums)
           #  i.e. [6,18,18] → 18
       Q   # Check for each if this max is equal to the sum
           #  i.e. [6,18,18] and 18 → [0,1,1]
        Ï  # Filter the uniquified list of lists on truthy values (and output implicitly)
           #  i.e. [[1,2,3],[2,0,4],[6,3,0]] and [0,1,1] → [[2,0,4],[6,3,0]]

Gaiaขนาด 10 ไบต์

ȯẋ_¦Σ¦:⌉=¦

ลองออนไลน์!

เนื่องจาก Gaia ไม่ยอมรับรายการผ่านอินพุตอย่างง่ายดายนี่คือฟังก์ชันที่รับรายการจากด้านบนจากด้านบนสุดของสแต็กและปล่อยผลลัพธ์ไว้ด้านบน (เป็นมาสก์ของคำสั่งที่เรียงลำดับ)

ȯ           Sort the list
 ẋ          Split it into runs of the same element (in this case, runs of the same row)
  _¦        Flatten each sublist
    Σ¦      Sum each sublist
      :⌉    Find the maximum sum
        =¦  Compare each sum for equality with the maximum

J , 16 ไบต์

[:(=>./)+/^:2/.~

ลองออนไลน์!

คำกริยา monadic ที่ให้ผลลัพธ์บูลีนตามลำดับที่ปรากฏ

มันทำงานอย่างไร

[:(=>./)+/^:2/.~
             /.~  Self-classify; collect identical rows in appearance order
                  For each collected rows (= a matrix),
        +/^:2       Sum all the elements into one value
[:(=>./)          Compute the boolean vector:
    >./             Is the max of the array
   =                equal to this element?