我一直在玩Haskell，所以我尝试在一定程度上尝试计算Pi，然而，解决方案似乎无限制地运行。我似乎无法弄明白。
以下是我目前的情况：
numerPi :: Int -> Int
numerPi k = (-1)^(k+1)
denomPi :: Int -> Int
denomPi k = 2*k - 1
termPi :: Int -> Float
termPi k = fromIntegral(numerPi(k)) / fromIntegral(denomPi(k))
quarterPi = sum([termPi(x) | x <- [1..], termPi(x) > 0.00001])
在ghci中执行4 * quarterPi似乎永远存在。如果这个问题太容易，我会道歉但是我无法让它发挥作用，谷歌也没有丝毫帮助。