求1+1/2+1/3+...+1/n>20的最小值

搞出了一种方法，不知道怎么能更快
print $ length $ takeWhile (<20) $ scanl (\x y->x+1/y) 0 [1..]

不是方法慢，是20太大了

--求1+1/2+1/3+...+1/n>someNum的最小值
minN :: Double -> Int
minN someNum = let li = [1/x | x <- [1 ..]] in (succ . length . takeWhile (<someNum) . scanl1 (+)) li

答案是272400600

findIndex (>20) (scanl (\z x -> z+1/x) 0 [1..])
20确实太大了，答案与LS一样，272400600

在解释器里运行比较慢，先编译再运行其实也不算慢