[reactive] More recursive fun

[Creighton Hogg]

So in the interest of simplifying the recursive integral problem as much as
possible, to make it a bit more tractable, I've come up with another
recursive Behavior definition that I think should work if the current
implementation of integral is expected to work.  I'd just like to get an
opinion on that to see if it's a test case I should try digging harder
into.  As I said, I _think_ that this should work iff the current definition
of integral should work but if that's not true, please let me know.  My
reasoning is that this should be the equivalent of using integral with an
event stream that has a constant difference of 1.

Thanks,
Creighton

myIntegral :: Event a -> Behavior Double -> Behavior Double
myIntegral e b = let e' = snapshot_ e b in sumB e'

x :: Event () -> Behavior Double
x e = let b =myIntegral' e b in b

events :: Event ()
events = atTimes [0.1,0.2]

schedule a = threadDelay 100000 >> a

main = do
  c <- makeClock
  u <- mkUpdater (cGetTime c) (fmap print $  x events)
  forever $ schedule u
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.haskell.org/pipermail/reactive/attachments/20081117/f91b6f1c/attachment.htm