为了试用Netwire,我正在使用该库实现Pong.在代码中我有一个球线和一个计算机桨线,由于它们相互依赖某些值,我一直遇到无限循环的问题.一些伪代码解释：
ball :: Wire () IO GameInput Ball ball = (... define ball ...) . pcPaddle pcPaddle :: Wire () IO GameInput Paddle pcPaddle = (... define pcPaddle ...) . ball
要注意的是他们互相接受投入.我试图通过执行以下操作来缓解此问题：
ball :: Wire () IO GameInput Ball ball = ( ... ) . delay ( ... base paddle init ...) . pcPaddle
以及在这两条线路中使用延迟功能的其他变化,但我得到<< loop>>无论运行时错误.
如何初始化其中一根电线以使该系统可以工作？
解决方法
当然,5分钟后,我发现似乎有效的神奇组合.我所做的是改变了电线所接受的输入
ball :: Wire () IO Paddle Ball ball = ... paddle :: Wire () IO Ball Paddle paddle = ...
然后,在创建我的电线网络时,我这样做了：
{-# LANGUAGE DoRec #-}
{-# LANGUAGE Arrows #-}
system = proc g -> do
rec b <- delay (... ball initial value ...) . ball -< p
p <- paddle -< b
returnA -< (b,p)
这确认了它们的依赖性,并在第一次传球时为球拍给出球的虚拟初始值.
