นี่เป็นวิธีง่าย ๆ :ใช้เมทริกซ์ของจำนวนเต็มเป็นอินพุตและสร้างดัชนีของแถวที่มีองค์ประกอบที่ไม่เป็นศูนย์มากที่สุด คุณอาจคิดว่าจะมีเพียงหนึ่งแถวที่มีองค์ประกอบที่ไม่ใช่ศูนย์มากที่สุด
สิ่งเหล่านี้เป็น 1 ดัชนีคุณสามารถเลือกได้ว่าต้องการ 0 หรือ 1 ดัชนี
1
0
row = 1
---
0 -1
0 0
row = 1
---
1 1 0 0 0
0 0 5 0 0
2 3 0 0 0
0 5 6 2 2
row = 4
---
0 4 1 0
0 0 -6 0
0 1 4 -3
2 0 0 8
0 0 0 0
row = 3
คำตอบ:
!gs&X>
อินพุตเป็นเมทริกซ์โดยมี;ตัวคั่นแถว
ลองออนไลน์! หรือตรวจสอบกรณีทดสอบทั้งหมด
! % Transpose
g % Logical: convert non-zeros to 1
s % Sum of each column, or sum of row if there's a single row
&X> % Arg max. Implicitly display
Ordering[Count@0/@#,1]&
ΣĀO}θk
-2 ไบต์ขอบคุณErik the Outgolfer
ΣĀO}θk
Σ } # Sort input by following code
Ā # Is element not 0? (vectorized)
O # Sum
θk # Get index of "largest" element
# Implicit print
pryr::f(which.min(rowSums(!m)))ส่งคืนฟังก์ชันที่ไม่ระบุชื่อซึ่งใช้เมทริกซ์:
function(m)which.min(rowSums(!m))rowSumsสรุปจำนวนแถวโดย!mแปลงเป็น 0 ถึง 1 และทุกอย่างเป็น 0which.minจะส่งคืนดัชนีที่อิง 1 ของแถวแรกซึ่งมีผลรวมขั้นต่ำ (เช่นแถวใดที่มีค่าศูนย์น้อยที่สุด)
which.min() !m
snd.minimum.(`zip`[1..]).map(filter(==0))
มันทำงานอย่างไร
map -- for each row
(filter(==0)) -- collect the 0s
(`zip`[1..]) -- pair with row index (<#0s>, <index>)
minimum -- find the minimum
snd -- extract index from pair
using System.Linq;m=>m.IndexOf(m.OrderBy(r=>r.Count(n=>n!=0)).Last())รับList<int[]>อินพุตเป็นและส่งคืนผลลัพธ์ที่ทำดัชนี 0
0@♀cñ♂RmN
คำอธิบาย:
0@♀cñ♂RmN
0@♀c count zeroes in each row
ñ♂R enumerate and reverse each row (each row becomes [count, index] pair)
m minimum
N last element (the index)
lambda a:a.index(min(a,key=lambda r:r.count(0)))โกนออกได้ 6 ไบต์ โซลูชันเก่า:
lambda a:min(range(len(a)),key=lambda i:a[i].count(0))(⊢⍳⌈/)+/0≠⎕0≠⎕ บูลีนเมทริกซ์โดยที่ไม่เป็นศูนย์
+/ แถวผลรวม
( ใช้ฟังก์ชัน tacit ต่อไปนี้กับรายการผลรวม
⌈/ สูงสุดของ
⍳ ดัชนี
⊢ ในรายการอาร์กิวเมนต์
)
TL$€M
1 การจัดทำดัชนี
เวอร์ชัน 5 ไบต์จำนวนมาก ...
TL$€M, T€L€M, TJ$€M, T€J€M, ¬¬Ṣ€M, ṠAṢ€M, ṠAS€M, AṠṢ€M, AṠS€M, ¬ċ€0M...
บันทึกไว้หนึ่งไบต์ขอบคุณ Siracusa!
แถวถูกทำดัชนีเป็นศูนย์
g=filter
m y=head$g((==maximum y).(y!!))[0..]
f=m.map(length.g(0/=))
f [[1,1,0,0,0],[2,3,0,0,0],[0,5,6,2,2],[1,1,1,1,1]]
g=filterจะช่วยคุณหนึ่งไบต์
m y=length$takeWhile(<maximum y)yและตัดให้สั้นลงได้อีกสองสามไบต์lengthแทนfilter
อันนี้ใช้ได้กับตัวเลขลบในอินพุตโชคดีที่มีความยาวเท่ากับต้นฉบับ:
#(nth(sort-by(fn[i](count(filter #{0}(% i))))(range(count %)))0)
เดิม:
#(last(sort-by(fn[i](count(filter pos?(% i))))(range(count %))))
pos?ไม่ถูกต้อง
วิธีการแก้:
(*)(<)sum(+)0=/:
ตัวอย่าง:
q)(*)(<)sum(+)0=/:enlist(1;0)
0
q)(*)(<)sum(+)0=/:(0 -1;0 0)
0
q)(*)(<)sum(+)0=/:(1 1 0 0 0;0 0 5 0 0;2 3 0 0 0;0 5 6 2 2)
3
q)(*)(<)sum(+)0=/:(0 4 1 0;0 0 -6 0;0 1 4 -3;2 0 0 8;0 0 0 0)
2
คำอธิบาย:
first iasc sum flip 0=/: / ungolfed
/: / each right, apply a function to each item to the right
0= / returns boolean 1b or 0b if item in each list is equal to zero
flip / flip (rotate) the output
sum / sum these up
iasc / return indices if we were to sort ascending
first / take the first one
หมายเหตุ:
ปัญหานี้ค่อนข้างตรงไปตรงมาวิธีนี้ให้ความรู้สึกซับซ้อนเกินไป ทันทีที่ฉันกดปุ่มส่งฉันก็ตระหนักถึงข้อผิดพลาดของวิธีการของฉัน
โบนัส:
นี่คือโซลูชัน ak ที่มีน้ำหนักอยู่ที่16 10 9 ไบต์ - เกือบจะเหมือนกัน แต่สั้นกว่า 7 ไบต์เนื่องจากเราไม่ต้องการวงเล็บเหลี่ยมเมื่อใช้ k-ins ในตัวและทำให้บางคำสั้นกว่า q คำหลัก ( เช่น+/สำหรับsum(จะอยู่(+/)ใน q))
*<+/+0=/:
òø0
jòÚDuu/"
dGؾ
ต่างจากคำตอบ V ส่วนใหญ่นี่คือดัชนี 0
00000000: f2f8 300a 6af2 da44 7575 2f12 220a 6447 ..0.j..Duu/.".dG
00000010: d8be ..
ไม่เลวสำหรับภาษาที่ไม่มีการสนับสนุนเชิงตัวเลข! ;P
ฉันยังได้ค้นพบว่าตัวแปรตัวพิมพ์ใหญ่ของคำสั่งcountนั่นคือØแตกหักอย่างน่ากลัว
def f(x):
for e in x:
e.sort()
y=x[:]
y.sort()
return x.index(y[-1])เรียงลำดับแรกในแต่ละแถวเพื่อให้รายการ[0,0,..,0,x,x,x]นั้นเรียงลำดับเมทริกซ์ทั้งหมดดังนั้นรายการสุดท้ายในyคือแถวที่เรากำลังค้นหา การคัดลอกy=x[:]เป็นสิ่งจำเป็นเนื่องจากใช้.sort()งานได้ในสถานที่ดังนั้นเราจึงไม่รู้จักดัชนีดั้งเดิมหลังจากการเรียงลำดับ
ฉันขอขอบคุณความช่วยเหลือเกี่ยวกับวิธีแก้ไขปัญหานี้ต่อไป ไบต์ส่วนใหญ่จะหายไปเนื่องจากช่องว่างในแต่ละบรรทัด โค้ดเองมีความยาว 68 ไบต์เท่านั้น
def f(a):b=list(map(sorted,a));return b.index(sorted(b)[-1])
0และใช้min()แทนmax()input()แทนdeflambdaand hash-map lambda x:x.index(min(x,key=lambda n:n.count(0)))minกับkeyพารามิเตอร์
0 การจัดทำดัชนี รับอาร์เรย์ 2D เป็นอินพุต
a=>(a=a.map(x=>x.filter(y=>y).length)).indexOf(Math.max(...a))
filterปริยาย "กรอง" ศูนย์?
filterก็แค่ทำให้แน่ใจ
ċ0$ÞḢi@
ċ0$ÞḢi@ Main link
Þ Sort by
ċ0$ the number of occurences of 0
Ḣ Take the first element
i@ Index in the original array
xQh/D0
แทนที่จะค้นหาแถวที่มีองค์ประกอบที่ไม่ใช่ศูนย์มากที่สุดฉันจะพบแถวที่มีองค์ประกอบที่เป็นศูนย์น้อยที่สุด
/D0: คำสั่งซื้อ ( D) โดยการนับ ( /) ของศูนย์ ( 0) ใช้กับQอินพุตโดยปริยาย
h: ใช้องค์ประกอบแรกและต่ำสุด
xQ: ค้นหาดัชนี ( x) ในอินพุต ( Q) ขององค์ประกอบนั้น
%M`\b0
m`(?<=(¶.+)*)$
;$#1
O#`.+
!`(?<=^.+;).+
0 การจัดทำดัชนี ทำงานร่วมกับจำนวนเต็มบวกและลบ (และ 0) ถือว่าไม่มีเลขศูนย์นำหน้า
import java.util.*;m->{int t=0,s=0,i=0,r=0;for(;i<m.size();i++){List l=(List)m.get(i);for(;l.remove(0L););s=l.size();if(s>t){t=s;r=i;}}return r;}
น่าเกลียด แต่ก็ใช้งานได้ ..
คำอธิบาย:
import java.util.*; // Required import for List
m->{ // Method with List parameter and integer return-type
int t=0,s=0,i=0, // Temp integers
r=0; // Result integer
for(;i<m.size();i++){ // Loop over the List of Lists
List l=(List)m.get(i); // Get the inner List
for(;l.remove(0L);); // Remove all zeros
s=l.size(); // Get the size of the List
if(s>t){ // If this size is larger than the previous
t=s; // Set `t` to this size
r=i; // And set the result to the index of this row
}
} // End of loop
return r; // Return result-integer
} // End of method
m->{int i=m.length,M=0,I=0,c;for(;i-->0;){c=0;for(int x:m[i])if(x!=0)c++;if(c>M){M=c;I=i;}}return I;}Java, ภาษา verbose ที่แสนหวาน :)
ขอบคุณที่บันทึก 18 ไบต์ @KevinCruijssen;)
jและชิ้นส่วนอื่น ๆ เช่นอีกต่อไปj=m[i].length,และm[i][j]เช่นนี้: m->{int i=m.length,M=0,I=0,c;for(;i-->0;){c=0;for(int x:m[i])if(x!=0)c++;if(c>M){M=c;I=i;}}return I;}( 101 ไบต์ )
m=>m.reduce((a,e,i)=>e.filter(x=>x).length>a?i:a,0)
โดยที่mเป็นอาร์เรย์ 2D และดัชนีที่ส่งคืนคือ 0 ดัชนี
กรณีทดสอบ:
m->m.indexOf(m.stream().map(z->{z.removeIf(x->x==0);return z;}).max((q,r)->q.size()-r.size()).get())
พลังของรายการและสตรีม! (และไม่มีการนำเข้าเพื่อบูต!)
ลองแยกแลมบ์ดาเล็ก ๆ นี้ออกเป็นชิ้น ๆ :
m.stream().map(z->{z.removeIf(x->x==0);return z;}
เราเปลี่ยน List of Lists (เมทริกซ์ในคำถาม) ของคุณเป็น Stream และผ่านแต่ละองค์ประกอบโดยลบค่าศูนย์ที่น่ารำคาญทั้งหมดออกจากแต่ละรายการย่อย เราจำเป็นต้องส่งคืนรายการย่อยอย่างชัดเจนทุกครั้งที่นี่เพราะStream.map()แปลงวัตถุแต่ละรายการในสตรีมเป็นสิ่งที่การแมปส่งคืนและเราไม่ต้องการเปลี่ยนรายการเหล่านั้น
.max((q,r)->q.size()-r.size()).get()
เราผ่านรายการย่อยที่เพิ่งยกเลิกการเป็นศูนย์และเพียงตรวจสอบว่ามีขนาดใหญ่แค่ไหนติดกันเพื่อรับรายการย่อยที่ใหญ่ที่สุด .get()เป็นเพราะStream.max()ผลตอบแทนที่เป็นตัวเลือกที่กำหนดว่าการเรียกฟังก์ชั่นพิเศษ
m.indexOf()
เราใช้รายการย่อยที่ใหญ่ที่สุดและค้นหาว่ามันอยู่ที่ไหนในรายการหลักให้ผลลัพธ์กับเรา!
สิ่งนี้จะหยุดถ้ารายการด้านนอกว่างเปล่า แต่ฉันกำลังรับอยู่
คุณอาจคิดว่าจะมีเพียงหนึ่งแถวที่มีองค์ประกอบที่ไม่ใช่ศูนย์มากที่สุด
เพื่อบอกเป็นนัยว่าจะมีอย่างน้อยหนึ่งแถว ช่วยแก้ให้ด้วยนะถ้าฉันผิด.
def f(x,i=0):print i;x[i].remove(0);f(x,-~i%len(x))รุ่นนี้จะลบ 0s ไปเรื่อย ๆ ผ่านอาร์เรย์พิมพ์ดัชนีปัจจุบันและล่มเมื่อไม่มีศูนย์ที่จะลบ ดัชนีที่พิมพ์ล่าสุดคือคำตอบ
lambda x,i=0:0in x[i]>x[i].remove(0)and f(x,-~i%len(x))|iอยากลองใช้วิธีอื่นจากสิ่งที่มีอยู่แล้วที่นี่ ดังนั้นที่นี่ฉันซ้ำย้ำกว่าอาร์เรย์ลบหนึ่ง 0 ในเวลาจนกว่าอาร์เรย์ปัจจุบันไม่มีศูนย์ใด ๆ - จากนั้นออกดัชนีของอาร์เรย์นั้น
0 การจัดทำดัชนี รับอินพุตเป็นอาร์เรย์ของอาร์เรย์
mè
bUrw
Uการป้อนข้อมูลโดยปริยายของอาร์เรย์[[0,4,1,0],[0,0,-6,0],[0,1,4,-3],[2,0,0,8],[0,0,0,0]]
mè
แผนที่ ( m) มากกว่าการUส่งคืนจำนวนองค์ประกอบที่เป็นความจริง (ไม่เป็นศูนย์) ในแต่ละอาร์เรย์ย่อย Uโดยปริยายกำหนดอาร์เรย์ใหม่นี้เพื่อ[2,1,3,2,0]
Urw
Reduce (r) array U by getting the greater of the current value and the current element.3
b
Get the first index in U where the element equals that value and implicitly output the result.2
ĀแทนÄ0›-2