design-patterns - 複数の結果を示すHaskell

Question

無限のリストを取り込む必要があります。そうすると、take 40 counter listq1、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 part**)

どうすればこれを達成できますか？ありがとう

Answer 1

私はあなたが探していると思いますzip4：

counter 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