2007-07-20 h-index Haskell h-index - odz bufferより。ちょっと出遅れた感はあるのですが、折角書いたので。。。 uncurryを使って、一行にしてみました。よけい読み難くなった気がします。 import List (sort) hindex :: [Int] -> Int hindex = length . takeWhile (uncurry (<=)) . zip [1..] . reverse . sort