Haskell 程序崩溃 - 无限递归？ where语句错误？

Question

我需要从 1..n 计算所有阶乘的乘积。
当我调用这个函数 double_factorial(至少有 2 或 3 个参数)时，
它似乎被调用了一会儿，但没有任何 react ，几秒钟后 GHCi 就关闭了。怎么了？是否有一些我看不到的无限递归？
这是我的代码:

double_factorial :: Integer->Integer
double_factorial n 
    | n<0 = error "negative number is given"
    | n==0 = 1
    | otherwise = (factorial n)*(double_factorial n-1)
    where
    factorial :: Integer->Integer
    factorial n 
        | n == 0  = 1
        | otherwise = n*(factorial n-1)

Answer 1

(double_factorial n-1)意味着 ((double_factorial n) - 1)所以是的，这是一个无限递归问题。