fork download
copy 
  1. f = @(x)sum(cumprod(-sort(-x)>=(1:numel(x))))
  2.  
  3. f([0,0,0,0])
  4. f([12,312,33,12])
  5. f([1,2,3,4,5,6,7])
  6. f([22,33,1,2,4])
  7. f([1000,2,2,2])
  8. f([23,42,12,92,39,46,23,56,31,12,43,23,54,23,56,73,35,73,42,12,10,15,35,23,12,42])
Success #stdin #stdout 0.22s 103360KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
f =

@(x) sum (cumprod (-sort (-x) >= 1:numel (x)))

ans = 0
ans =  4
ans =  4
ans =  3
ans =  2
ans =  20
https://ideone.com/QvtLod
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!