Ini sederhana: Ambil matriks bilangan bulat sebagai input, dan output indeks baris dengan elemen paling tidak nol. Anda dapat berasumsi bahwa hanya akan ada satu baris dengan elemen paling tidak nol.
Ini adalah 1-diindeks, Anda dapat memilih jika Anda ingin 0 atau 1-diindeks.
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
Jawaban:
!gs&X>
Input adalah sebuah matriks, dengan ;pemisah baris.
Cobalah online! Atau verifikasi semua kasus uji .
! % 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 Bytes terima kasih kepada 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)))mengembalikan fungsi anonim yang mengambil matriks:
function(m)which.min(rowSums(!m))rowSumsmenjumlahkan baris, dengan !mmengubah 0 menjadi 1 dan yang lainnya menjadi 0.which.min mengembalikan indeks berbasis 1 dari baris pertama yang berisi jumlah minimum (yaitu, baris yang memiliki nol paling sedikit).
which.min()karena elemen yang tidak nol akan menjadi SALAH dengan !m.
snd.minimum.(`zip`[1..]).map(filter(==0))
Bagaimana itu bekerja
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())Mengambil List<int[]>input sebagai dan mengembalikan hasil terindeks 0.
0@♀cñ♂RmN
Penjelasan:
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)))Dicukur 6 byte. Solusi lama:
lambda a:min(range(len(a)),key=lambda i:a[i].count(0))(⊢⍳⌈/)+/0≠⎕0≠⎕ Matriks Boolean di mana bukan nol
+/ jumlah baris
( menerapkan fungsi diam-diam berikut ke daftar jumlah
⌈/ maksimum
⍳ indeks
⊢ dalam daftar argumen
)
TL$€M
1-diindeks.
Begitu banyak versi 5-byte ...
TL$€M, T€L€M, TJ$€M, T€J€M, ¬¬Ṣ€M, ṠAṢ€M, ṠAS€M, AṠṢ€M, AṠS€M, ¬ċ€0M, ...
Disimpan satu byte berkat Siracusa!
Baris tidak diindeks
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=filtermenghemat satu byte
m y=length$takeWhile(<maximum y)ydan memperpendek lengthalih-alihfilter
Yang ini juga berfungsi dengan angka negatif dalam input, untungnya sama panjangnya dengan yang asli:
#(nth(sort-by(fn[i](count(filter #{0}(% i))))(range(count %)))0)
Asli:
#(last(sort-by(fn[i](count(filter pos?(% i))))(range(count %))))
pos?tidak benar
Larutan:
(*)(<)sum(+)0=/:
Contoh:
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
Penjelasan:
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
Catatan:
Masalahnya cukup mudah, solusi ini terasa terlalu rumit. Segera setelah saya menekan kirim, saya menyadari kesalahan cara saya.
Bonus:
Inilah solusi ak yang memberikan bobot pada 16 10 9 byte - hampir persis sama tetapi 7 byte lebih pendek karena faktanya kita tidak memerlukan tanda kurung saat menggunakan k built-in, dan sebagai hasilnya beberapa menjadi lebih pendek daripada kata kunci q ( misalnya +/untuk sum(akan berada (+/)di q)).
*<+/+0=/:
{0fe=_:e>#}
>seharusnya <malah ... terima kasih. :)
òø0
jòÚDuu/"
dGؾ
Tidak seperti kebanyakan jawaban V, ini diindeks 0.
00000000: f2f8 300a 6af2 da44 7575 2f12 220a 6447 ..0.j..Duu/.".dG
00000010: d8be ..
Tidak buruk untuk bahasa tanpa dukungan angka! ;P
Saya juga telah menemukan bahwa varian huruf besar dari perintah hitung , yaitu Ø, rusak parah.
def f(x):
for e in x:
e.sort()
y=x[:]
y.sort()
return x.index(y[-1])Pertama, sortir setiap baris sedemikian rupa [0,0,..,0,x,x,x]sehingga entri kemudian urutkan seluruh matriks, sehingga entri terakhir masuky adalah baris yang kita cari. Salinan y=x[:]diperlukan, karena .sort()berfungsi di tempat, maka kita tidak tahu indeks asli setelah penyortiran.
Saya menghargai bantuan apa pun untuk menyempurnakan solusi ini. Sebagian besar byte hilang karena spasi putih di setiap baris. Kode itu sendiri hanya sepanjang 68 byte.
def f(a):b=list(map(sorted,a));return b.index(sorted(b)[-1])
0dan gunakan min()sebagai gantinyamax()input()sebagai gantideflambdadan hash-map lambda x:x.index(min(x,key=lambda n:n.count(0)))mindengan keyparameter
Diindeks 0. Mengambil array 2D sebagai input.
a=>(a=a.map(x=>x.filter(y=>y).length)).indexOf(Math.max(...a))
filtersecara implisit "menyaring" nol?
filteryang hanya memastikan.
ċ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
Alih-alih menemukan baris dengan elemen paling tidak nol, saya menemukan baris dengan elemen paling sedikit nol.
/D0: Memesan ( D) dengan hitung ( /) dari nol ( 0). Secara implisit diterapkan pada Q, input.
h: Ambil elemen pertama dan minimum.
xQ: Temukan indeks ( x) di input ( Q) elemen itu.
%M`\b0
m`(?<=(¶.+)*)$
;$#1
O#`.+
!`(?<=^.+;).+
Diindeks 0. Bekerja dengan bilangan bulat positif dan negatif (dan 0). Diasumsikan tidak ada nol di depan.
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;}
Jelek, tapi berhasil ..
Penjelasan:
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, bahasa verbose yang manis :)
Terima kasih telah menyimpan 18 byte, @KevinCruijssen;)
jdan bagian-bagian lain yang lebih panjang seperti j=m[i].length,dan m[i][j]seperti ini: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 bytes )
m=>m.reduce((a,e,i)=>e.filter(x=>x).length>a?i:a,0)
di mana marray 2D dan indeks yang dikembalikan adalah 0-diindeks
Kasus uji:
m->m.indexOf(m.stream().map(z->{z.removeIf(x->x==0);return z;}).max((q,r)->q.size()-r.size()).get())
Kekuatan Daftar dan Streaming! (dan tanpa impor, untuk boot!)
Mari kita pecahkan lambda kecil ini menjadi beberapa bagian:
m.stream().map(z->{z.removeIf(x->x==0);return z;}
Kami mengubah Daftar Daftar kami (matriks dalam pertanyaan) menjadi Stream dan menelusuri setiap elemen, menghapus semua nol sial itu dari setiap sub-Daftar. Kita perlu secara eksplisit mengembalikan sublist setiap kali di sini, karenaStream.map() mengkonversi setiap objek dalam Stream ke apa pun yang dikembalikan oleh pemetaan, dan kami tidak ingin mengubahnya.
.max((q,r)->q.size()-r.size()).get()
Kita membaca sub-daftar yang baru dihapus, dan cukup memeriksa seberapa besar mereka di samping satu sama lain, menjadikan kita sublist terbesar. Ini .get()karena Stream.max()mengembalikan Opsional, yang membutuhkan panggilan fungsi tambahan.
m.indexOf()
Kami mengambil sublist terbesar itu, dan menemukan di mana itu ada dalam Daftar utama, memberi kami hasil kami!
Ini rusak jika daftar luar kosong, tapi saya ambil
Anda dapat mengasumsikan bahwa hanya akan ada satu baris dengan elemen yang paling tidak nol.
menyiratkan bahwa akan selalu ada setidaknya satu baris. Koreksi saya jika saya salah.
def f(x,i=0):print i;x[i].remove(0);f(x,-~i%len(x))Versi ini menghapus 0s secara progresif melalui array, mencetak indeks saat ini, dan crash ketika tidak ada lagi nol untuk dihapus. Indeks cetak terakhir adalah jawabannya.
lambda x,i=0:0in x[i]>x[i].remove(0)and f(x,-~i%len(x))|iIngin mencoba pendekatan yang berbeda dari yang sudah ada di sini. Jadi di sini saya secara berulang-ulang beralih pada array menghapus satu 0 pada suatu waktu sampai array saat ini tidak lagi memiliki angka nol - dan kemudian menampilkan indeks array itu.
Diindeks 0. Mengambil input sebagai array array.
mè
bUrw
Input array secara implisit U.[[0,4,1,0],[0,0,-6,0],[0,1,4,-3],[2,0,0,8],[0,0,0,0]]
mè
Map ( m) untuk Umengembalikan jumlah elemen kebenaran (bukan nol) di setiap sub-array. Secara implisit tetapkan larik baru ini ke U.[2,1,3,2,0]
Urw
Kurangi ( r) array Udengan mendapatkan yang lebih besar dari nilai saat ini dan elemen saat ini.3
b
Dapatkan indeks pertama di Umana elemen sama dengan nilai itu dan secara implisit mengeluarkan hasilnya.2
Āsebagai gantiÄ0›untuk -2.