Sha256: f64e16c1b290c1a6dadc2a6db2c8b2c53bd127437ceeec7f750380ecf77c50db
Contents?: true
Size: 1.18 KB
Versions: 71
Compression:
Stored size: 1.18 KB
Contents
unit uBinarySearch;
interface
type
BinarySearch = class
strict private
class function SearchHelper(input: TArray<Integer>; target: integer; minIndex: integer; maxIndex: integer): integer; static;
public
class function Search(input: TArray<Integer>; target: integer): integer; static;
end;
implementation
class function BinarySearch.SearchHelper(input: TArray<Integer>; target: Integer; minIndex: Integer; maxIndex: Integer): integer;
var middleIndex: integer;
begin
if minIndex > maxIndex then
begin
result := -1;
exit;
end;
middleIndex := (minIndex + maxIndex) div 2;
if (input[middleIndex] = target) then
result := middleIndex
else
if (middleIndex <= Low(input)) or (middleIndex >= High(input)) then
result := -1
else
if input[middleIndex] > target then
result := SearchHelper(input, target, minIndex, middleIndex - 1)
else
result := SearchHelper(input, target, middleIndex + 1, maxIndex);
end;
class function BinarySearch.Search(input: TArray<Integer>; target: integer): integer;
begin
if length(input) = 0 then
result := -1
else
result := SearchHelper(input, target, Low(input), High(input));
end;
end.
Version data entries
71 entries across 71 versions & 1 rubygems