haskell - 评估一个列表直到某个时间过去

Question

我有一个列表，其（惰性）值需要一些时间来计算。我想要一个函数来计算尽可能多的这些值，直到经过一定的时间。

我想像一个签名

computeUntil :: [a] -> Int -> IO ([a],[a])
computeUntil list seconds = (computedValues, uncomputedValues)

细节真的不重要。重要的是，我可以毫不拖延地访问结果的第一个列表中的任何内容。