相关疑难解决方法(0)

我如何"杀死"一个耗时太长的纯计算？我试过了

import System.Timeout

fact 0 = 1
fact n = n * (fact $ n - 1)

main = do maybeNum <- timeout (10 ^ 7) $ (return . fact) 99999999
          print maybeNum

但是,这不起作用.替换(return . fact) 99999999为"真正的"IO功能getLine,这可以按预期工作.