反应式香蕉节流事件

我想在reactive-banana 中实现某种类型的事件限制。它应该工作，以便如果距最后一个事件通过的时间少于 delta 秒，则不会让事件通过。如果不让其通过，则会存储该事件，并在距离上次触发事件 delta 秒后触发。

下面是一个为时间戳数字列表实现此功能的程序。是否可以将其翻译为reactive-banana？

另外，在reactive-banana中，如何在其他事件到来后x秒触发一个事件？

module Main where

import Data.List

-- 1 second throtling
-- logic is to never output a value before 1 second has passed since last value was outputed.

main :: IO()
main = print $ test [ (0.0, 1.0), (1.1, 2.0), (1.5,3.0), (1.7,4.0),  (2.2, 5.0)  ]
--should output  [ (0.0, 1.0), (1.1, 2.0), (2.1,4.0), (3.1, 5.0) ]

test :: [(Double,Double)] -> [(Double,Double)]
test list = g v (concat xs)
       where
               (v, xs) = mapAccumL f (-50,Nothing) list
               g (t, Just x) ys = ys ++ [ (t+1,x) ]
               g _ ys  = ys
               f (lasttime, Just holdvalue) (t,x) = if t > (lasttime+1) then
                               if t > (lasttime + 2) then
                                       ( (t, Nothing), [ (lasttime+1,holdvalue), (t,x)] )
                               else ( (lasttime+1, Just x) , [ (lasttime+1,holdvalue) ] )
                       else        
                               ( (lasttime, Just x), [] )
               f (lasttime, Nothing) (t,x) = if t > (lasttime+1) then
                        ( (t,Nothing) , [ (t, x ) ] ) 
                        else ( (lasttime, Just x), [] )
  

从reactive-banana-0.6开始，绝对可以实现你想要的功能，但是有点复杂。

基本上，您可以使用像 wxHaskell 这样的外部框架来创建一个计时器，然后您可以使用它来安排事件。这Wave.hs https://github.com/HeinrichApfelmus/reactive-banana/blob/master/reactive-banana-wx/src/Wave.hs示例演示了如何做到这一点。

目前，我选择不在反应式香蕉库本身中包含时间概念。原因很简单，不同的外部框架具有不同分辨率或质量的计时器，没有一种尺寸适合所有情况。

我确实打算向库本身添加处理时间和计时器的通用辅助函数，但我仍然需要找到一种好方法，使其在不同计时器上通用，并找出我可以提供哪些保证。