fork(1) download
copy 
  1. f = @(r){m=max(s=sum(r==max(r,0,2),1)),find(s==m)}
  2.  
  3. f([7 93; 69 35; 77  30])
  4. f([7 93; 69 35; 77  77])
  5. f([1 2 3 4; 5 6 7 8])
  6. f([16 2 3 13; 5 11 10 8; 9 7 6 12])
  7. f([1 1 1 1])
  8. f([25 6 13 25])
  9. f([1; 2; 3; 4])
  10. f([100])
Success #stdin #stdout #stderr 0.45s 121792KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
f =

@(r) {m = max(s = sum (r == max (r, 0, 2), 1)), find(s == m)}

ans = 
{
  [1,1] =  2
  [1,2] =  1
}
ans = 
{
  [1,1] =  2
  [1,2] =

     1   2

}
ans = 
{
  [1,1] =  2
  [1,2] =  4
}
ans = 
{
  [1,1] =  1
  [1,2] =

     1   2   4

}
ans = 
{
  [1,1] =  1
  [1,2] =

     1   2   3   4

}
ans = 
{
  [1,1] =  1
  [1,2] =

     1   4

}
ans = 
{
  [1,1] =  4
  [1,2] =  1
}
ans = 
{
  [1,1] =  1
  [1,2] =  1
}
stderr
copy 
warning: max: second argument is ignored
warning: called from
     at line -1 column -1
warning: max: second argument is ignored
warning: called from
     at line -1 column -1
warning: max: second argument is ignored
warning: called from
     at line -1 column -1
warning: max: second argument is ignored
warning: called from
     at line -1 column -1
warning: max: second argument is ignored
warning: called from
     at line -1 column -1
warning: max: second argument is ignored
warning: called from
     at line -1 column -1
warning: max: second argument is ignored
warning: called from
     at line -1 column -1
warning: max: second argument is ignored
warning: called from
     at line -1 column -1
https://ideone.com/hyzjZH
language:
Octave (octave 4.4.1)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!