F ::のシーケンスのためのcons :: operator？

Question

シーケンスをリストに変換する必要のない優れたコードはありますか？

let rec addentry map keys = 
    match keys with 
    | ((i,j) :: tail) -> Map.add (i,j) ((inputd.[i]).[j]) (addentry map tail) 
    | ([]) -> map 

addentry Map.empty (Cartesian keys1 keys2 |> Seq.toList) 

Answer 1

Seq.foldを使用するのに最適な場所です。コレクションを1つの値に縮小します。私はちょうどそれを実現

let (|Cons|Nil|) s = 
    if Seq.isEmpty s then 
     Nil 
    else 
     Cons(Seq.head s, Seq.skip 1 s) 

let rec addentry map keys = 
    match keys with 
    | Cons((i,j), tail) -> Map.add (i,j) ((inputd.[i]).[j]) (addentry map tail) 
    | Nil -> map 

Answer 2

Cartesian keys1 keys2 
|> Seq.map (fun (i, j) -> ((i, j), (inputd.[i]).[j])) 
|> Map.ofSeq 

Answer 3

Cartesian keys1 keys2 
|> Seq.fold (fun map (i, j) -> 
    let value = (inputd.[i]).[j] 
    Map.add (i, j) value map) Map.empty 

は、あなたがアクティブなパターンを定義することができます。私は頭がどこにあるのか知らない。