0

私は2つの演算子を書かなければなりませんでした：

let inline (|/>) (seqinit:seq<'a*'T>) f = seqinit |> Seq.map  (fun (key1 ,seq1) -> (key1, seq1 |> f ))
let inline (||>) (seqinit:seq<'a * seq<'b>>) (f2:seq<'b>->seq<'c*seq<'d>>) = seqinit |>  Seq.map  (fun (key1 ,seq1) -> (key1, seq1 |> f2 ))

次の操作を行うために、最初のグループはSeqをMapに変換し、2番目のグループはコレクションにキーを追加します

let toMap  (seqinit:seq<'a*'T>)                 =  seqinit |/> id     |> Map.ofSeq  
let toMap2 (seqinit:seq<'a*seq<'b*'T>>)         =  seqinit |/> toMap  |> toMap
let toMap3 (seqinit:seq<'a*seq<'b*seq<'c*'T>>>) =  seqinit |/> toMap2 |> toMap


let groupBy2 f1 f2 (seqinit:seq<'a>) = 
  seqinit |> Seq.groupBy f1  ||> (Seq.groupBy f2)

let groupBy3 f1 f2 f3 (seqinit:seq<'a>) =
  seqinit |> Seq.groupBy f1  ||> (Seq.groupBy f2) ||> (Seq.groupBy f3)

これらの2つの演算子|/>と||>に特別な名前はありますか？

これは私が他のそのようなオペレーターを見つけるのを助け、車輪の再発明をしません

編集

グループ化を解除する場合にも役立ちます

let ungroup  (seqinit:seq<'a*seq<'b>>)                 = seqinit |> Seq.fold(fun state (key, keyseq) -> Seq.append state keyseq) Seq.empty
let ungroup2 (seqinit:seq<'a*seq<'b*seq<'c>>>)         = seqinit |/> ungroup |> ungroup
let ungroup3 (seqinit:seq<'a*seq<'b*seq<'c*seq<'d>>>>) = seqinit |/> ungroup |/> ungroup |> ungroup
4

1 に答える 1

1

||>FSharp.Coreではすでにとして定義されてい'T1 * 'T2 -> ('T1 -> 'T2 -> 'U) -> 'Uます。使用法：(arg1, arg2) ||> func。そのコンパイルされた名前はop_PipeRight2です。

の定義は|/>カスタマイズされすぎて一般的に使用できないようです。そのため、定義済みの名前はないと思います。

于 2012-03-01T17:46:48.663 に答える