Design patterns Haskell显示多个结果
我需要一个无限列表，然后当我执行时，Design patterns Haskell显示多个结果,design-patterns,haskell,matching,Design Patterns,Haskell,Matching,我需要一个无限列表，然后当我执行时，take 40 counter list将返回一个包含括号或任何形式的q1、q2、q3、q4值的列表 我的代码示例是 counter clock = let (q1,q2,w1,q3,w2,q4) = (flip clock clock, flip q1 q1, and_gate q1 q2, flip w1 w1, and_gate w1 q3, flip w2 w2) in (**q1,q2,q3,q4 - no sure about this p
take 40 counter listcounter clock =
let (q1,q2,w1,q3,w2,q4) = (flip clock clock, flip q1 q1, and_gate q1 q2, flip w1 w1, and_gate w1 q3, flip w2 w2) in (**q1,q2,q3,q4 - no sure about this part**)
我怎样才能做到这一点？谢谢我想您正在寻找：
所以
q1q4counter clock =
let q1 = flip clock clock
q2 = flip q1 q1
w1 = and_gate q1 q2
q3 = flip w1 w1
w2 = and_gate w1 q3
q4 = flip w2 w2
in zip4 q1 q2 q3 q4