in BinSearch.equalOrMore and BinSearch.equalOrLess, return ~1 if no item is found, for the sake of less ambiguity in usage. Functions that call these have also been adapted.

2025-09-13 02:18:14 +01:00
parent 53a4265b07
commit 20a542df29
6 changed files with 17 additions and 7 deletions
--- a/fcore/bin-search.sml
+++ b/fcore/bin-search.sml
@@ -3,7 +3,7 @@ struct
  local
    fun reverseLinearSearch (findNum, idx, vec) =
      if idx < 0 then
-        idx
+        ~1
      else
        let
          val curVal = Vector.sub (vec, idx)
@@ -38,7 +38,7 @@ struct
  local
    fun forwardLinearSearch (findNum, idx, vec) =
      if idx = Vector.length vec then
-        idx
+        ~1
      else
        let
          val curVal = Vector.sub (vec, idx)