過濾序列

Question

有相同尺寸的三種不同的序列

a:int = {1, 2, 3, 4} 
b:string= {"a","b","a","d"} 
c:string= {"y","y","t","t"} 

我如何從seq:a創建一個新的序列與條件

where b="a" and c="y" 

Answer 1

Seq.zip a (Seq.zip b c) 
|> Seq.filter (snd >> ((=) ("a", "y"))) 
|> Seq.map fst 

Answer 2

Seq.zip3 a b c 
|> Seq.choose (function (n, "a", "y") -> Some n | _ -> None)