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

Question

我有一个List，其（懒惰）值需要一些时间来计算。我希望有一个函数可以计算尽可能多的值，直到某个时间过去。

我想像一个签名

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

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