Оптимизация поиска

[mutabor]

Все алгоритмы по своему хороши, с делением пополам интересный. В моем случае лучше подойдет массив boolean покрывающий весь диапазон значений, с ним наверное быстрее всего будет, а памяти хватит
Еще раз всем спасибо!

[B_N]

Вы только с boolean не торопитесь, он ведь 32 бита длиной (не помню точно, как в дельфи), лучше бинарный массив завести.

[mutabor]

Оно то может и лучше, но это выходит за рамки моих знаний
boolean = 1 байт, умножаем на 16 млн. получаем ~16МБ, пустяки какие
тем более он будет временный

[Andrei]

Сообщение от mutabor

2Андрей, не совсем понял принцип, что за сумма S? После нескольких сложений произойдет переполнение, или она не для этого? Можно без кода на словах.

Виноват, неправильно обозвал. S - это счетчик неповторяющихся значений.

Разве не вы написали в условии что вам нужно узнать количество уникальных значений? вот она и прибавляет единичку если значение уникальное.

[Andrei]

Сообщение от mutabor

2Андрей, не совсем понял принцип, ...

Вот оформил свои мысли в виде кода и отказался от промежуточного массива. На примере матрицы 3х3:

procedure TForm1.Button1Click(Sender: TObject);
var i, k, StartI, kol: cardinal;
    A1: array[0..2,0..2] of char; {матрица 3х3}
    L1: array[0..2,0..2] of TLabel; {массив лейблов для отражения матрицы 3х3}
    A2: array[0..8] of char; {одномерный массив для работы}
    CurVal, OldVal: char;
    Dubl: boolean;
begin
 L1[0,0]:=Label1;
 L1[0,1]:=Label2;
 L1[0,2]:=Label3;
 L1[1,0]:=Label4;
 L1[1,1]:=Label5;
 L1[1,2]:=Label6;
 L1[2,0]:=Label7;
 L1[2,1]:=Label8;
 L1[2,2]:=Label9;

{Загружаю значения в матрицу} 
A1[0,0]:='1';
 L1[0,0].Caption:=A1[0,0];
 A1[0,1]:='2';
 L1[0,1].Caption:=A1[0,1];
 A1[0,2]:='5';
 L1[0,2].Caption:=A1[0,2];
 A1[1,0]:='1';
 L1[1,0].Caption:=A1[1,0];
 A1[1,1]:='6';
 L1[1,1].Caption:=A1[1,1];
 A1[1,2]:='9';
 L1[1,2].Caption:=A1[1,2];
 A1[2,0]:='1';
 L1[2,0].Caption:=A1[2,0];
 A1[2,1]:='1';
 L1[2,1].Caption:=A1[2,1];
 A1[2,2]:='1';
 L1[2,2].Caption:=A1[2,2];

{перегоняю матрицу в одномерный массив 
потому как с ним код проще и понятней} 
StartI:=0;
 for i:=0 to 2 do
  for k:=0 to 2 do
  begin
   a2[StartI]:=a1[i,k];
   StartI:=StartI+1;
  end;

 Kol:=0; {обнуляю количество уникальных значений}
 StartI:=0; {начало обработки массива}
 Dubl:=false; {указатель повторяемости записи}

 while StartI<=8 do {гоняю одномерный массив до тех пор пока стартовая запись не сравняется с его размером}
 begin
 CurVal:=a2[StartI]; {присваиваю значение начальной точки}
 ;
 for i:=StartI+1 to 8 do {прогоняю массив, начиная со стартовой точки+1}
 begin
  if a2[i]=CurVal {сравниваю текущее значение со значением начальной точки}
  then 
  begin 
   Dubl:=True; {запись не уникальна}
   StartI:=StartI+1; {сдвигаю начальную точку на одно значение}
   OldVal:=a2[StartI]; {копирую значение из новой начальной точки в переменную}
   a2[StartI]:=CurVal; {записываю сравниваемое значение в новую начальную точку}
   a2[i]:=OldVal; {присваиваю прежнее значение начальной точки в текущему значению массива}
  end;
 end;
 ;
 if not Dubl then Kol:=Kol+1; {если запись уникальна увеличиваю кол-во}
 Dubl:=false;
 StartI:=StartI+1; {сдвигаю начальную точку на один элемент вперед}
 end;
 ShowMessage('Количество уникальных записей: '+IntToStr(Kol));

{а здесь вывожу одномерный массив в лебелы чтобы увидеть результаты работы программы} 
StartI:=0;
 for i:=0 to 2 do
  for k:=0 to 2 do
  begin
   L1[i,k].Caption:=a2[StartI];
   StartI:=StartI+1;
  end;
end;

Думаю подобное можно было бы замутить и непосредственно на самой матрице без перегонки в одномерный массив, но уж больно код мудреный получается.