Сон разума или сок мозга - Март, 31, 2010

Ах да.
procedure TForm1.find(var d:different;n:int64); --> procedure TForm1.find(var d:different;j:byte;n:int64);

i:=1; --> i:=j;

Итого:
ускорениие работы программы в... Раз так 200. Завтра проверю точно.
Теперь прогнать тест на 126 блоках по 128 бит - быстрее чем раньше для одного B)

На тему предыдущего поста:
количество рекурсывных вызовов сократилось с 182443310 до 24022, т.е. примерно в 7600 раз.
Осталось только выяснить - корректен сам алгоритм или нет, ибо результаты довольно странные...