wip: Vector.map2

Author: IgorErin

src/GraphBLAS-sharp.Backend/Common/ClArray.fs

@@ -489,5 +489,3 @@ module ClArray =
  processor.Post(Msg.MsgSetArguments(fun () -> kernel.KernelFunc ndRange firstPosition (firstPosition + count) value targetArray))
 
  processor.Post(Msg.CreateRunMsg<_, _>(kernel))
-
- ()

src/GraphBLAS-sharp.Backend/Quotes/Map.fs

@@ -22,6 +22,12 @@ module Map =
  | Some _ -> 1
  | None -> 0 @>
 
+ let choose2Bitmap<'a, 'b, 'c> (map: Expr<'a -> 'b -> 'c option>) =
+ <@ fun (leftItem: 'a) (rightItem: 'b) ->
+ match (%map) leftItem rightItem with
+ | Some _ -> 1
+ | None -> 0 @>
+
  let fst () = <@ fun fst _ -> fst @>
 
  let snd () = <@ fun _ snd -> snd @>

src/GraphBLAS-sharp.Backend/Vector/Sparse/Map.fs

@@ -8,6 +8,7 @@ open GraphBLAS.FSharp.Backend.Objects.ClContext
 open GraphBLAS.FSharp.Backend.Quotes
 open FSharp.Quotations
 open GraphBLAS.FSharp.Backend.Objects.ArraysExtensions
+open GraphBLAS.FSharp.Backend.Common
 
 module internal Map =
  let preparePositions<'a, 'b> (clContext: ClContext) workGroupSize opAdd =
@@ -97,3 +98,16 @@ module internal Map =
  Size = vector.Size }
 
  module AtLeastOne =
+ let run (clContext: ClContext) workGroupSize op =
+
+ let getOptionBitmap =
+ ClArray.map2 clContext workGroupSize
+ <| Map.choose2Bitmap op
+
+ let prefixSum = PrefixSum.standardExcludeInplace clContext workGroupSize
+
+ let scatter = Scatter.runInplace clContext workGroupSize
+
+ fun (processor: MailboxProcessor<_>) ->
+
+ ()