これは単純なものです。整数の行列を入力として受け取り、ゼロ以外の要素が最も多い行のインデックスを出力します。ゼロ以外の要素が最も多い行は1つだけであると想定できます。
これらは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
ΣĀO}θk
-Erik the Outgolferのおかげで2バイト
ΣĀ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行を合計し、!m0を1に変換し、他のすべてを0に変換which.minします。最小合計を含む最初の行の1ベースのインデックスを返します（つまり、ゼロの数が最も少ない行）。
which.min()ゼロ以外の要素はでFALSEになるため、必要!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≠⎕ ゼロ以外のブール行列
+/ 行の合計
( 次の暗黙関数を合計リストに適用します
⌈/ 最大の
⍳ インデックス
⊢ 引数リスト内
)
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、...
これは、入力の負の数でも機能し、幸いなことに元の長さと同じです：
#(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
ノート：
問題はかなり簡単で、このソリューションは非常に複雑に感じます。私がサブミットを打つとすぐに、自分のやり方の誤りに気づきました。
ボーナス：
16 10 9バイトで重み付けするkソリューションがあります-ほぼ同じですが、kビルトインを使用するときに角かっこが必要ないため7バイト短くなり、その結果、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])
0sをカウントし、min()代わりに使用max()input()代わりにdeflambdaとハッシュマップの使用 lambda x:x.index(min(x,key=lambda n:n.count(0)))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）でインデックス（）を見つけます。
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;}
glyいですが、動作します。
説明：
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、その甘い冗長な言語:)
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)
where 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;}
リストのリスト（質問のマトリックス）をストリームに変換し、各要素を調べて、各サブリストからこれらの厄介なゼロをすべて削除します。Stream.map()ストリーム内の各オブジェクトをマッピングが返すものに変換するため、ここでは毎回明示的にサブリストを返す必要がありますが、変更する必要はありません。
.max((q,r)->q.size()-r.size()).get()
新しくデゼロ化されたサブリストを調べ、それらが互いにどれだけ大きいかを確認して、最大のサブリストを取得します。これ.get()はStream.max()、が追加の関数呼び出しを必要とするOptionalを返すためです。
m.indexOf()
最大のサブリストを取得し、メインリストのどこにあるかを見つけて、結果を出します！
外側のリストが空の場合、これは壊れますが、私は取っています
ゼロ以外の要素が最も多い行は1つだけであると想定できます。
常に少なくとも1つの行があることを意味します。私が間違っている場合は修正してください。
def f(x,i=0):print i;x[i].remove(0);f(x,-~i%len(x))このバージョンでは、配列から0が徐々に削除され、現在のインデックスが出力されます。削除するゼロがなくなるとクラッシュします。最後に印刷されたインデックスが答えです。
lambda x,i=0:0in x[i]>x[i].remove(0)and f(x,-~i%len(x))|iすでにここにあるものとは異なるアプローチを試してみたかった。そこで、現在の配列にゼロがなくなるまで、一度に1つの0を削除しながら配列を再帰的に反復処理し、その配列のインデックスを出力します。
Ā代わりに使用しÄ0›ます。