Haskell顯示多個結果

Question

我需要採取一個無限列表，然後當我做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 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