Код

Функция Сравнить_1с(Вектор1, Вектор2)
	Перем чКол;

	чКол = Вектор1.Количество();
	Если чКол<> Вектор2.Количество() Тогда
		Возврат чКол;
	КонецЕсли;

	Для к = 0 По чКол - 1 Цикл
		Если Вектор1.Получить(к) <>  Вектор2.Получить(к) Тогда
			Возврат к;
		КонецЕсли;
	КонецЦикла;

	Возврат -1;
КонецФункции	// Сравнить_1с



//*******************************************
Процедура Сформировать()
	Луа = СоздатьОбъект("LuaRef");
	Луа.dostring("
	|
	|Compare = function(Вектор1, Вектор2)
	|			local cnt = Вектор1.Количество()
	|			if (cnt ~= Вектор2.Количество()) then
	|				return cnt
	|			end
	|
	|			for i = 0, cnt-1 do
	|				if (Вектор1.Получить(i) ~=  Вектор2.Получить(i)) then
	|					return i
	|				end
	|			end
	|			return - 1
	|		end
	|");

	Луа=Луа._G;


	Вектор1 = СоздатьОбъект("Вектор");
	Вектор1.Добавить(1);
	Вектор1.Добавить(2);
	Вектор1.Добавить(3);
	Вектор1.Добавить(4);
	Вектор1.Добавить(10);

	Вектор2 = СоздатьОбъект("Вектор");
	Вектор2.Добавить(1);
	Вектор2.Добавить(2);
	Вектор2.Добавить(3);
	Вектор2.Добавить(4);
	Вектор2.Добавить(5);

	н = 100000;
	_Время = _GetPerformanceCounter();
	Для к = 1 по н Цикл
		Сравнить_1с(Вектор1, Вектор2);
	КонецЦикла;

	Сообщить("Время сравнения 1с:" + (_GetPerformanceCounter() - _Время));

	_Время = _GetPerformanceCounter();
	Для к = 1 по н Цикл
		Луа.Compare(Вектор1, Вектор2);
	КонецЦикла;

	Сообщить("Время сравнения LUA:" + (_GetPerformanceCounter() - _Время));

КонецПроцедуры