입력

음이 아닌 정수 목록입니다.

산출

목록의 숫자 h중 적어도 하나 이상이 되도록하는 가장 큰 음이 아닌 정수 입니다.hh

테스트 사례

[0,0,0,0] -> 0
[12,312,33,12] -> 4
[1,2,3,4,5,6,7] -> 4
[22,33,1,2,4] -> 3
[1000,2,2,2] -> 2
[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] -> 20

규칙

전체 프로그램 또는 함수를 작성할 수 있으며 익명 함수도 허용됩니다. 이것은 코드 골프이므로 가장 적은 바이트 수가 이깁니다. 표준 허점은 허용되지 않습니다.

배경

H-지수는 연구원의 영향과 생산성을 캡처하는 것을 목표로 학계에서 사용되는 개념이다. Wikipedia에 따르면, 연구원은 h 개의 과학 논문 을 출판 한 경우 색인 h 를 가지며 , 각 논문은 적어도 h 번 다른 논문에서 인용되었습니다 . 따라서이 과제는 인용 횟수 목록에서 h- 인덱스를 계산하는 것입니다.

최신 정보

와! 나는 가장 짧은 것을 받아 들였지만 다른 누군가가 더 짧은 것을 내면 그에 따라 내 선택을 업데이트 할 것입니다.

언어 별 수상자

다음은 언어 별 수상자 표입니다. 또한 최신 정보를 제공하려고합니다. 음수가 아닌 모든 게시물을 포함 시켰습니다. 내가 여기서 실수를 한 경우 수정 해주세요.

• APL : @MorisZucca의 7 바이트
• Bash + coreutils : @DigitalTrauma에 의해 29 바이트
• C # : @ LegionMammal978에 의해 103 바이트
• C ++ : @ user9587에 의해 219 바이트
• CJam : @nutki의 15 바이트
• GolfScript : @IlmariKaronen의 13 바이트
• Haskell : @proudhaskeller의 40 바이트
• J : @ ɐɔıʇǝɥʇuʎs의 12 바이트
• Java : @Ypnypn의 107 바이트
• JavaScript : @ edc65의 48 바이트
• Mathematica : 38 바이트 @ kukac67
• Perl : @nutki의 32 바이트
• Pyth : @isaacg에 의해 10 바이트
• 파이썬 : @feersum의 49 바이트
• R : @MickyT에 의한 29 바이트
• 루비 : @daniero의 41 바이트
• 스칼라 : @ChadRetz에 의해 62 바이트
• SQL : @MickyT의 83 바이트
• TI-BASIC : @Timtech의 22 바이트

답변

+/⊢≥⍋∘⍒

f←+/⊢≥⍋∘⍒
f¨(4⍴0)(12 312 33 12)(⍳7)(22 33 1 2 4)(1000 2 2 2)(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)
0 4 4 3 2 20

f=lambda s,n=0:n<sum(n<x for x in s)and f(s,n+1)or n

s=input()
n=0
while n<sum(n<x for x in s):n+=1
print n

tf<l-QUTT1

i=0
for z in sorted(input())[::-1]:i+=z>i
print i

l~{~}${W):W>},,

[:+/i.@#<\:~

   f=:[:+/i.@:#<\:~
   f 0,0,0,0
0
   f 12,312,33,12
4
   f 1,2,3,4,5,6,7
4
   f 22,33,1,2,4
3
   f 1000,2,2,2
2
   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
20

LengthWhile[i=0;SortBy[#,-#&],#>i++&]&

In: LengthWhile[i=0;SortBy[#,-#&],#>i++&]&@{1,2,3,4,5,6,7}
Out: 4