File tree Expand file tree Collapse file tree
benchmarks/GraphBLAS-sharp.Benchmarks Expand file tree Collapse file tree Original file line number Diff line number Diff line change 1- open BenchmarkDotNet.Running
21open GraphBLAS.FSharp .Benchmarks
3- open BenchmarkDotNet.Configs
4- open BenchmarkDotNet.Order
2+ open BenchmarkDotNet.Running
53
64[<EntryPoint>]
75let main argv =
Original file line number Diff line number Diff line change @@ -109,14 +109,12 @@ module Utils =
109109 Array.Parallel.iteri
110110 ( fun i struct ( packedIndex , value ) ->
111111 let ( rowIdx , columnIdx ) = unpack packedIndex
112- rows.[ i] <- rowIdx
113- cols.[ i] <- columnIdx
112+ // in mtx indecies start at 1
113+ rows.[ i] <- rowIdx - 1
114+ cols.[ i] <- columnIdx - 1
114115 values.[ i] <- value
115116 ) data
116117
117- let flip f x y = f y x
118- let rows = rows |> Array.map ( flip (-) 1 )
119- let cols = cols |> Array.map ( flip (-) 1 )
120118 {
121119 Rows = rows
122120 Columns = cols
@@ -163,6 +161,5 @@ module Utils =
163161
164162 configFilename
165163 |> getFullPathToConfig
166- |> File.ReadAllLines
167- |> Seq.ofArray
164+ |> File.ReadLines
168165 |> Seq.filter ( fun line -> not <| line.StartsWith " !" )
You can’t perform that action at this time.
0 commit comments