Как оптимально сравнить две таблицы значений?

//////////////////////////YanTsys (248)////////////////////////////

Функция СравнениеТаблицЗначений6(Т1, Т2) Экспорт
	
	ТЗПК = СравнитьТЗ248(Т1, Т2);	
	ТЗПК.Колонки[0].Имя = "Ключ"; ТЗПК.Колонки[1].Имя = "Знак";	
	Возврат ТЗПК
	
КонецФункции

Функция СравнитьТЗ248( ТЗ1,ТЗ2)
	СоответствиеТЗ1=новый Соответствие; СоответствиеРезультат=новый Соответствие; КоличествоКолонок=ТЗ1.Колонки.Количество(); ТЗРез=ТЗ1.СкопироватьКолонки(ТЗ1.Колонки[0].Имя); ТЗРез.Колонки.Добавить("РезультатСравнения");
	Для каждого СтрокаТЗ1 из ТЗ1 Цикл СоответствиеТЗ1.Вставить(СтрокаТЗ1[0],СтрокаТЗ1); КонецЦикла;
	Для каждого СтрокаТЗ2 из ТЗ2 Цикл СтрокаТЗ1=СоответствиеТЗ1[СтрокаТЗ2[0]]; Если СтрокаТЗ1=неопределено Тогда 	СоответствиеРезультат.Вставить(СтрокаТЗ2[0],1);Иначе РезультатСравнения=0;Для ИндексКолонки=1 по КоличествоКолонок-1 Цикл Попытка Если СтрокаТЗ1[ИндексКолонки]<>СтрокаТЗ2[ИндексКолонки] Тогда РезультатСравнения=2; Прервать; КонецЕсли;Исключение РезультатСравнения=2; КонецПопытки;КонецЦикла;	СоответствиеРезультат.Вставить(СтрокаТЗ2[0],РезультатСравнения); КонецЕсли;КонецЦикла;
	Для каждого ЭлементСоответствиеТЗ1 из СоответствиеТЗ1 Цикл Если СоответствиеРезультат[ЭлементСоответствиеТЗ1.Ключ]=неопределено Тогда	СоответствиеРезультат.Вставить(ЭлементСоответствиеТЗ1.Ключ,-1); КонецЕсли;КонецЦикла;
	Для каждого ЭлементСоответствиеРезультат из СоответствиеРезультат Цикл Если ЭлементСоответствиеРезультат.Значение<>0 Тогда  СтрокаТЗРез=ТЗРез.Добавить();СтрокаТЗРез[0]=ЭлементСоответствиеРезультат.Ключ; СтрокаТЗРез[1]=ЭлементСоответствиеРезультат.Значение; КонецЕсли; КонецЦикла;
	Возврат ТЗРез;
КонецФункции

Функция ТаблицыНеРавны(Тз1, Тз2)
	
	Количество1 = Тз1.Количество();
	Количество2 = Тз2.Количество();
	Если Количество1 <> Количество2 Тогда
		Возврат Истина;
	КонецЕсли;
	
	МассивИмен = Новый Массив;
	Для Каждого Колонка Из Тз1.Колонки Цикл
		МассивИмен.Добавить(Колонка.Имя);
	КонецЦикла;
	
	ПерваяСтрока1 = Тз1.Получить(0);
	ПерваяСтрока2 = Тз2.Получить(0);
	
	ПоследняяСтрока1 = Тз1.Получить(Количество1-1);
	ПоследняяСтрока2 = Тз2.Получить(Количество1-1);
	
	Для Каждого Имя Из МассивИмен Цикл
		Если ПерваяСтрока1[Имя] <> ПерваяСтрока2[Имя] Тогда
			Возврат Истина;
		КонецЕсли;
		
		Если ПоследняяСтрока1[Имя] <> ПоследняяСтрока2[Имя] Тогда
			Возврат Истина;
		КонецЕсли;
	КонецЦикла;
		
	Если Количество1 <= 2 Тогда
		Возврат Ложь;
	КонецЕсли;
	
	МассивОтложенныхЗадач = Новый Массив;
	МассивОтложенныхЗадач.Добавить(0);
	МассивОтложенныхЗадач.Добавить(Количество1 - 1);
	ИндексОтложенныхЗадач = 1;
	
	Пока Истина Цикл
		
		Если ИндексОтложенныхЗадач < -1 Тогда
			Прервать;
		КонецЕсли;
			
		ПервыйИндекс = МассивОтложенныхЗадач[ИндексОтложенныхЗадач-1];
		ПоследнийИндекс = МассивОтложенныхЗадач[ИндексОтложенныхЗадач];
		ЦентральныйИндекс = Цел( (ПервыйИндекс + ПоследнийИндекс)/2 );
		
		//сравним центальную строку
		ЦентральнаяСтрока1 = Тз1.Получить(ЦентральныйИндекс);
		ЦентральнаяСтрока2 = Тз2.Получить(ЦентральныйИндекс);
		
		Для Каждого Имя Из МассивИмен Цикл
			Если ЦентральнаяСтрока1[Имя] <> ЦентральнаяСтрока2[Имя] Тогда
				Возврат Истина;
			КонецЕсли;
		КонецЦикла;
		
		//удалим текущий кусок
		ИндексОтложенныхЗадач = ИндексОтложенныхЗадач - 2;
		
		//положим новые задачи сравнения
		Если ЦентральныйИндекс - ПервыйИндекс > 1 Тогда
			ИндексОтложенныхЗадач = ИндексОтложенныхЗадач + 2;
			МассивОтложенныхЗадач[ИндексОтложенныхЗадач-1] = ПервыйИндекс; 
			МассивОтложенныхЗадач[ИндексОтложенныхЗадач] = ЦентральныйИндекс;
		КонецЕсли;
		
		Если ПоследнийИндекс - ЦентральныйИндекс > 1 Тогда
			ИндексОтложенныхЗадач = ИндексОтложенныхЗадач + 2;
			МассивОтложенныхЗадач[ИндексОтложенныхЗадач-1] = ЦентральныйИндекс;
			МассивОтложенныхЗадач[ИндексОтложенныхЗадач] = ПоследнийИндекс;
		КонецЕсли;
		
	КонецЦикла;
	
	Возврат Ложь;
		
КонецФункции 

[ReliabilityContract(Consistency.WillNotCorruptState, Cer.MayFail), SecuritySafeCritical, __DynamicallyInvokable]
public override unsafe int GetHashCode()
{
    if (HashHelpers.s_UseRandomizedStringHashing)
    {
        return InternalMarvin32HashString(this, this.Length, 0L);
    }
    fixed (char* str = ((char*) this))
    {
        char* chPtr = str;
        int num = 0x15051505;
        int num2 = num;
        int* numPtr = (int*) chPtr;
        int length = this.Length;
        while (length > 2)
        {
            num = (((num << 5) + num) + (num >> 0x1b)) ^ numPtr[0];
            num2 = (((num2 << 5) + num2) + (num2 >> 0x1b)) ^ numPtr[1];
            numPtr += 2;
            length -= 4;
        }
        if (length > 0)
        {
            num = (((num << 5) + num) + (num >> 0x1b)) ^ numPtr[0];
        }
        return (num + (num2 * 0x5d588b65));
    }
}

Старт = ТекущаяУниверсальнаяДатаВМиллисекундах() ;

	
	Для каждого Стр Из Тз1 Цикл
	
	Значение=стр[0];
	КонецЦикла;

 Сообщить("Доступ по индексу " + (ТекущаяУниверсальнаяДатаВМиллисекундах()  - Старт)+ " мсек.");

Старт = ТекущаяУниверсальнаяДатаВМиллисекундах() ;

Ключ="Поле0";	
	Для каждого Стр Из Тз1 Цикл
	
	Значение=стр[Ключ];

КонецЦикла;
 Сообщить("Доступ по имени " + (ТекущаяУниверсальнаяДатаВМиллисекундах()  - Старт)+ " мсек.");

Функция СравнениеТаблицЗначений(Т1, Т2Ориг) Экспорт
	
	Ответ = Новый Соответствие;
	Т2=Т2Ориг.Скопировать();
	ИмяКлюча = Т2.Колонки[0].Имя;
	
	Т2.Индексы.Добавить(ИмяКлюча);
	
	ВГраница = Т1.Колонки.Количество() - 1;
	
	Для Каждого Ведущая Из Т1 Цикл
		Ключ = Ведущая[0]; 
		Ведомая = Т2.Найти(Ключ, ИмяКлюча);
		Если Ведомая = Неопределено Тогда 	
			Ответ[Ключ] = -1 	
		Иначе 	
			Для ё = 1 По ВГраница Цикл 
				Если Ведущая[ё] <> Ведомая[ё] Тогда	
					Ответ[Ключ] = 0; 
					Прервать 
				КонецЕсли КонецЦикла;
				Т2.Удалить(Ведомая) КонецЕсли 
		КонецЦикла;	
		Для Каждого Ведомая Из Т2 Цикл  Ключ = Ведомая[0]; 	Ответ[Ключ] = 1 КонецЦикла;
		
		Результат = Новый ТаблицаЗначений; Результат.Колонки.Добавить("Ключ"); Результат.Колонки.Добавить("Значение");
		
		Для Каждого Элемент Из Ответ Цикл 
			ЗаполнитьЗначенияСвойств(Результат.Добавить(), Элемент) 
		КонецЦикла;
		
		Результат.Колонки[1].Имя = "Знак";
		
		Возврат Результат
		
	КонецФункции