refactor: module Fold -> Reduce

Author: IgorErin

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

@@ -5,7 +5,7 @@ open GraphBLAS.FSharp.Backend.Quotes
 open Microsoft.FSharp.Control
 open Microsoft.FSharp.Quotations
 
-module Fold =
+module Reduce =
     let private runGeneral (clContext: ClContext) (workGroupSize: int) scan scanToCell =
 
         fun (processor: MailboxProcessor<_>) (inputArray: ClArray<'a>) ->

src/GraphBLAS-sharp.Backend/Vector/DenseVector/DenseVector.fs

@@ -249,7 +249,7 @@ module DenseVector =
             getValuesAndIndices clContext workGroupSize
 
         let reduce =
-            Fold.reduce clContext workGroupSize opAdd
+            Reduce.reduce clContext workGroupSize opAdd
 
         fun (processor: MailboxProcessor<_>) (vector: ClArray<'a option>) ->
 

src/GraphBLAS-sharp.Backend/Vector/SparseVector/SparseVector.fs

@@ -349,6 +349,6 @@ module SparseVector =
     let reduce<'a when 'a: struct> (clContext: ClContext) (workGroupSize: int) (opAdd: Expr<'a -> 'a -> 'a>) =
 
         let reduce =
-            Fold.reduce clContext workGroupSize opAdd
+            Reduce.reduce clContext workGroupSize opAdd
 
         fun (processor: MailboxProcessor<_>) (vector: ClVector.Sparse<'a>) -> reduce processor vector.Values

tests/GraphBLAS-sharp.Tests/Common/Reduce.fs

@@ -59,7 +59,7 @@ let makeTest
 
 
 let testFixtures config wgSize q plus plusQ zero filter name =
-    let reduce = Fold.reduce context wgSize plusQ
+    let reduce = Reduce.reduce context wgSize plusQ
 
     makeTest q reduce plus zero filter
     |> testPropertyWithConfig config (sprintf "Correctness on %s" name)

tests/GraphBLAS-sharp.Tests/Common/Sum.fs

@@ -46,7 +46,7 @@ let makeTest (q: MailboxProcessor<_>) sum plus zero isEqual (filter: 'a [] -> 'a
         |> Expect.equal actualSum expectedSum
 
 let testFixtures config wgSize q plus (plusQ: Expr<'a -> 'a -> 'a>) zero isEqual filter name =
-    let sum = Fold.sum context wgSize plusQ zero
+    let sum = Reduce.sum context wgSize plusQ zero
 
     makeTest q sum plus zero isEqual filter
     |> testPropertyWithConfig config (sprintf "Correctness on %s" name)