Merge pull request #16 from lindig/perf

Compute length only once
geocaml · Aug 11, 2023 · 16a8688 · 16a8688
2 parents c85fe48 + 1438a4e
commit 16a8688
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/rtree.ml b/src/rtree.ml
@@ -190,11 +190,12 @@ module Make (E : Envelope) (V : Value with type envelope = E.t) = struct
     |> Float.ceil |> int_of_float
 
   let rec omt ~m entries =
-    if List.length entries <= m then
+    let length = List.length entries in
+    if length <= m then
       let leaves = List.map (fun v -> (V.envelope v, v)) entries in
       Leaf leaves
     else
-      let slices = number_along_axis ~m (List.length entries) in
+      let slices = number_along_axis ~m length in
       let q =
         let q' = Queue.create () in
         Queue.add (entries, E.dimensions - 1) q';