Đây là một cách đơn giản: Lấy một ma trận các số nguyên làm đầu vào và xuất chỉ mục của hàng với các phần tử khác không nhất. Bạn có thể cho rằng sẽ chỉ có một hàng có hầu hết các phần tử khác không.
Đây là 1 chỉ mục, bạn có thể chọn nếu bạn muốn 0 hoặc 1 chỉ mục.
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
Câu trả lời:
!gs&X>
Đầu vào là một ma trận, với ;dấu phân cách hàng.
Hãy thử trực tuyến! Hoặc xác minh tất cả các trường hợp thử nghiệm .
! % 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 byte nhờ 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)))trả về một hàm ẩn danh có ma trận:
function(m)which.min(rowSums(!m))rowSumstính tổng các hàng, với việc !mbiến đổi 0 thành 1 và mọi thứ khác thành 0. which.mintrả về chỉ số dựa trên 1 của hàng đầu tiên chứa tổng nhỏ (nghĩa là hàng nào có số 0 ít nhất).
which.min()vì các phần tử khác không sẽ trở thành FALSE với !m.
snd.minimum.(`zip`[1..]).map(filter(==0))
Làm thế nào nó hoạt động
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())Lấy List<int[]>đầu vào làm đầu vào và trả về kết quả được lập chỉ mục 0.
0@♀cñ♂RmN
Giải trình:
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)))Cạo đi 6 byte. Giải pháp cũ:
lambda a:min(range(len(a)),key=lambda i:a[i].count(0))(⊢⍳⌈/)+/0≠⎕0≠⎕ Ma trận Boolean nơi khác không
+/ tổng hàng
( áp dụng hàm ngầm định sau vào danh sách tổng
⌈/ tối đa
⍳ mục lục
⊢ trong danh sách đối số
)
TL$€M
1 chỉ mục.
Vì vậy, nhiều phiên bản 5 byte ...
TL$€M, T€L€M, TJ$€M, T€J€M, ¬¬Ṣ€M, ṠAṢ€M, ṠAS€M, AṠṢ€M, AṠS€M, ¬ċ€0M, ...
Đã lưu một byte nhờ Siracusa!
Hàng không được lập chỉ mục
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=filtergiúp bạn tiết kiệm một byte
m y=length$takeWhile(<maximum y)yvà rút ngắn lengththay vìfilter
Cái này cũng hoạt động với các số âm trong đầu vào, may mắn là cùng độ dài với bản gốc:
#(nth(sort-by(fn[i](count(filter #{0}(% i))))(range(count %)))0)
Nguyên:
#(last(sort-by(fn[i](count(filter pos?(% i))))(range(count %))))
pos?không đúng
Dung dịch:
(*)(<)sum(+)0=/:
Thí dụ:
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
Giải trình:
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
Ghi chú:
Vấn đề khá đơn giản, giải pháp này cảm thấy quá phức tạp. Ngay khi tôi nhấn trình, tôi nhận ra lỗi của mình.
Tiền thưởng:
Đây là giải pháp có trọng lượng 16 10 9 byte - gần như giống hệt nhau nhưng ngắn hơn 7 byte do thực tế chúng ta không cần dấu ngoặc khi sử dụng k dựng sẵn và kết quả là một số trở nên ngắn hơn từ khóa q ( ví dụ +/cho sum(sẽ (+/)ở q)).
*<+/+0=/:
{0fe=_:e>#}
>nên <thay vào đó ... cảm ơn dù sao đi nữa. :)
òø0
jòÚDuu/"
dGؾ
Không giống như hầu hết các câu trả lời V, đây là 0 chỉ mục.
00000000: f2f8 300a 6af2 da44 7575 2f12 220a 6447 ..0.j..Duu/.".dG
00000010: d8be ..
Không tệ cho một ngôn ngữ không có hỗ trợ số! ;P
Tôi cũng đã phát hiện ra rằng biến thể chữ hoa của lệnh đếm , nghĩa là Øbị phá vỡ khủng khiếp.
def f(x):
for e in x:
e.sort()
y=x[:]
y.sort()
return x.index(y[-1])Đầu tiên sắp xếp mỗi hàng sao cho các mục nhập [0,0,..,0,x,x,x]sau đó sắp xếp toàn bộ ma trận, sao cho mục nhập cuối cùng ylà hàng chúng ta đang tìm kiếm. Bản sao y=x[:]là cần thiết, vì .sort()hoạt động tại chỗ, do đó chúng tôi không biết chỉ mục gốc sau khi sắp xếp.
Tôi đánh giá cao bất kỳ trợ giúp làm thế nào để chơi golf giải pháp này hơn nữa. Hầu hết các byte bị mất vì các khoảng trắng trong mỗi dòng. Bản thân mã chỉ dài 68 byte.
def f(a):b=list(map(sorted,a));return b.index(sorted(b)[-1])
0s và sử dụngmin() thay vìmax()input()thay vìdeflambdavà hash-map lambda x:x.index(min(x,key=lambda n:n.count(0)))minvới keytham số
Chỉ số 0. Lấy một mảng 2D làm đầu vào.
a=>(a=a.map(x=>x.filter(y=>y).length)).indexOf(Math.max(...a))
filterngầm "lọc" số không?
filterchắc chắn.
ċ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
Thay vì tìm hàng có nhiều phần tử khác không, tôi tìm hàng có phần tử bằng 0.
/D0: Sắp xếp ( D) theo số ( /) của số không ( 0). Ngẫu nhiên áp dụng cho Q, đầu vào.
h: Lấy phần tử đầu tiên và tối thiểu.
xQ: Tìm chỉ mục ( x) trong đầu vào ( Q) của phần tử đó.
%M`\b0
m`(?<=(¶.+)*)$
;$#1
O#`.+
!`(?<=^.+;).+
Chỉ số 0. Hoạt động với số nguyên dương và âm (và 0). Giả sử không có số không hàng đầu.
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;}
Xấu xí, nhưng nó hoạt động ..
Giải trình:
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, ngôn ngữ dài dòng ngọt ngào đó :)
Cảm ơn vì đã lưu 18 byte, @KevinCruijssen;)
jvà các bộ phận còn khác như j=m[i].length,và m[i][j]như thế này: 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 byte )
m=>m.reduce((a,e,i)=>e.filter(x=>x).length>a?i:a,0)
trong đó mmột mảng 2D và chỉ mục được trả về là 0-index
Các trường hợp thử nghiệm:
m->m.indexOf(m.stream().map(z->{z.removeIf(x->x==0);return z;}).max((q,r)->q.size()-r.size()).get())
Sức mạnh của Danh sách và Luồng! (và không có nhập khẩu, để khởi động!)
Chúng ta hãy chia lambda nhỏ này thành nhiều phần:
m.stream().map(z->{z.removeIf(x->x==0);return z;}
Chúng tôi biến Danh sách Danh sách của chúng tôi (ma trận trong câu hỏi) thành Luồng và đi qua từng phần tử, loại bỏ tất cả các số 0 phiền phức đó khỏi mỗi Danh sách phụ. Chúng tôi cần trả lại rõ ràng danh sách phụ mỗi lần ở đây, vì Stream.map()chuyển đổi từng đối tượng trong Luồng thành bất kỳ thứ gì ánh xạ trả về và chúng tôi không muốn thay đổi chúng.
.max((q,r)->q.size()-r.size()).get()
Chúng tôi đi qua các danh sách con mới, và chỉ cần kiểm tra xem chúng lớn như thế nào cạnh nhau, đưa chúng tôi vào danh sách phụ lớn nhất. Các .get()là vì Stream.max()trả về một tùy chọn, đòi hỏi rằng chức năng thêm cuộc gọi.
m.indexOf()
Chúng tôi lấy danh sách phụ lớn nhất đó và tìm vị trí của nó trong Danh sách chính, cho chúng tôi kết quả!
Điều này sẽ phá vỡ nếu danh sách bên ngoài trống, nhưng tôi đang dùng
Bạn có thể cho rằng sẽ chỉ có một hàng có hầu hết các phần tử khác không.
để ngụ ý rằng sẽ luôn có ít nhất một hàng. Sửa lỗi cho tôi nếu tôi sai.
def f(x,i=0):print i;x[i].remove(0);f(x,-~i%len(x))Phiên bản này loại bỏ 0s dần dần thông qua các mảng, in chỉ mục hiện tại và gặp sự cố khi không còn số không để xóa. Chỉ số in cuối cùng là câu trả lời.
lambda x,i=0:0in x[i]>x[i].remove(0)and f(x,-~i%len(x))|iMuốn thử một cách tiếp cận khác với những gì đã có ở đây. Vì vậy, ở đây tôi lặp lại đệ quy trên mảng loại bỏ một 0 tại một thời điểm cho đến khi mảng hiện tại không còn bất kỳ số 0 nào - và sau đó xuất chỉ mục của mảng đó.
Chỉ số 0. Đưa đầu vào như một mảng của mảng.
mè
bUrw
Đầu vào ngầm định của mảng U.[[0,4,1,0],[0,0,-6,0],[0,1,4,-3],[2,0,0,8],[0,0,0,0]]
mè
Map ( m) Utrả về số lượng phần tử trung thực (khác không) trong mỗi mảng con. Hoàn toàn gán mảng mới này cho U.[2,1,3,2,0]
Urw
Giảm rmảng ( ) Ubằng cách lấy giá trị hiện tại và phần tử hiện tại lớn hơn.3
b
Lấy chỉ mục đầu tiên trong Uđó phần tử bằng giá trị đó và hoàn toàn đưa ra kết quả.2
Āthay vìÄ0›cho -2.