Binary Search Prob

[CyberSlug]

AutoIt 3.0.94 (latest unstable) - Win XP Pro sp1

; sample arrays; real ones are bigger
$FUNCS = StringSplit("funcA|funcB|funcC|funcD|funcE" , "|")
$SPECS = StringSplit("descA|descB|descC|descD|descE" , "|")

MsgBox(4096,"", lookup("funcD") )
Exit

Func lookup($keyword)  ; binary search that returns element
   Local $lo = 1, $i, $hi = UBound($FUNCS)-1
      
   While ($lo <= $hi)
      $i = Round( ($lo+$hi)/2 )
      If $keyword > $FUNCS[$i] Then
         $lo = $i + 1
      ElseIf
         $hi = $i - 1
      Else
         Return $SPECS[$i]
      EndIf
   WEnd
   Return ""
EndFunc

[CyberSlug]

EDIT: Oops, I forgot the ElseIf clause.

Error message was quite unhelpful

[scriptkitty]

Bad use of ElseIf

ElseIf

; sample arrays; real ones are bigger
$FUNCS = StringSplit("funcA|funcB|funcC|funcD|funcE" , "|")
$SPECS = StringSplit("descA|descB|descC|descD|descE" , "|")

MsgBox(4096,"", lookup("funcD") )
Exit

Func lookup($keyword); binary search that returns element
  Local $lo = 1, $i, $hi = UBound($FUNCS)-1
  Local $lo = 1, $i, $hi = $FUNCS[0]-1
     
  While ($lo <= $hi)
     $i = Round( ($lo+$hi)/2 )
     If $keyword > $FUNCS[$i] Then
        $lo = $i + 1
     ElseIf $keyword < $FUNCS[$i] Then; not sure what you wanted to do
        $hi = $i - 1
     Else
        Return $SPECS[$i]
     EndIf
  WEnd
  Return ""
EndFunc

edit... oops, I see you already found it.

Edited February 18, 2004 by scriptkitty

[CyberSlug]

Thanks for posting Scriptkitty. I'm happy to know someone was trying to help

If I hadn't found the bug when I did, your post would probably have saved me hours of searching!