Форум АНТИЧАТ - бинарный поиск

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

бинарный поиск

02.02.2010, 23:29

1n0y

Участник форума

Регистрация: 09.05.2009

Сообщений: 186

Провел на форуме:
1682814

Репутация: 102

Отправить сообщение для 1n0y с помощью ICQ

бинарный поиск

собстно решил проапгрейдить поиск в своём удоляторе до бинарного. всё бы нечего, но результаты простого перебора и бинарного поиска заметно отличаются - в объёмных базах бинарный не находит примерно 10% совпадений. wtf?!

вот кусок бинарного:

Код:

//f4, f5 - стринглисты

     f5.sort;
     f4.sort;   
      while I<=f4.Count-1 do
            begin
             verh:=0;
             niz:=f5.count;
             found:=FALSE;
              repeat
               sred:=trunc((niz-verh)/2)+verh;
                 if  AnsiPos(f4.Strings[I],f5.strings[sred])<>0
                  then found:=TRUE
                 else
                  if  f4.Strings[I < f5.strings[sred]
                    then niz:=sred-1
	          else verh:=sred+1;
              until (verh > niz) or found or (verh = f5.count);
            if found
             then
              begin
               form1.Memo6.Lines.Add(f5.Strings[sred]);
               I:=I+1;
              end
            else
             I:=I+1;
          end

естественно, все стринглисты сортирую перед поиском.
вчомпроблема? или это такая фича бинарного поиска?