Merge pull request #7 from sfaqer/feature/staticInitializersPerformance

В методах хелперах создания коллекций из набора элементов ускорена производительность путем уменьшения количества выполняемых Вычислить в цикле

packagedef

@@ -1,5 +1,5 @@
 Описание.Имя("collectionos")
-        .Версия("0.7.1")
+        .Версия("0.7.2")
         .Автор("Кирилл Черненко")
         .АдресАвтора("https://github.com/sfaqer")
         .Описание("Фреймворк коллекций для OneScript")

src/Модули/Карты.os

@@ -15,7 +15,16 @@
 	Результат = Новый КартаСоответствие;
 
 	Для сч = 1 По 10 Цикл
-		ДобавитьНеПустоеЗначениеВКоллекцию(Результат, Вычислить("Ключ" + сч), Вычислить("Значение" + сч));
+
+		Ключ     = Вычислить("Ключ" + сч);
+		Значение = Вычислить("Значение" + сч);
+
+		Если Ключ = NULL Или Значение = NULL Тогда
+			Прервать;
+		КонецЕсли;
+
+		Результат.Вставить(Ключ, Значение);
+
 	КонецЦикла;
 
 	Возврат Новый ФиксированнаяКарта(Результат);
@@ -38,9 +47,3 @@
 	Возврат Новый ФиксированнаяКарта(Результат);
 
 КонецФункции
-
-Процедура ДобавитьНеПустоеЗначениеВКоллекцию(Коллекция, Ключ, Значение)
-	Если Ключ <> NULL И Значение <> NULL Тогда
-		Коллекция.Вставить(Ключ, Значение);
-	КонецЕсли;
-КонецПроцедуры

src/Модули/Массивы.os

@@ -59,15 +59,17 @@
 	Результат = Новый Массив;
 
 	Для сч = 1 По 32 Цикл
-		ДобавитьНеПустоеЗначениеВКоллекцию(Результат, Вычислить("Элемент" + сч));
+
+		Значение = Вычислить("Элемент" + сч);
+
+		Если Значение = NULL Тогда
+			Прервать;
+		КонецЕсли;
+
+		Результат.Добавить(Значение);
+
 	КонецЦикла;
 
 	Возврат Новый ФиксированныйМассив(Результат);
 
 КонецФункции
-
-Процедура ДобавитьНеПустоеЗначениеВКоллекцию(Коллекция, Значение)
-	Если Значение <> NULL Тогда
-		Коллекция.Добавить(Значение);
-	КонецЕсли;
-КонецПроцедуры

src/Модули/Множества.os

@@ -1,4 +1,4 @@
-Функция ИзЭлементов(	
+Функция ИзЭлементов(
 	// BSLLS:NumberOfParams-off
 	// BSLLS:NumberOfOptionalParams-off
 	// BSLLS:UnusedParameters-off
@@ -17,7 +17,15 @@
 	Результат = Новый МножествоСоответствие;
 
 	Для сч = 1 По 32 Цикл
-		ДобавитьНеПустоеЗначениеВКоллекцию(Результат, Вычислить("Элемент" + сч));
+
+		Значение = Вычислить("Элемент" + сч);
+
+		Если Значение = NULL Тогда
+			Прервать;
+		КонецЕсли;
+
+		Результат.Добавить(Значение);
+
 	КонецЦикла;
 
 	Возврат Новый ФиксированноеМножество(Результат);
@@ -40,9 +48,3 @@
 	Возврат Новый ФиксированноеМножество(Результат);
 
 КонецФункции
-
-Процедура ДобавитьНеПустоеЗначениеВКоллекцию(Коллекция, Значение)
-	Если Значение <> NULL Тогда
-		Коллекция.Добавить(Значение);
-	КонецЕсли;
-КонецПроцедуры

src/Модули/Соответствия.os

@@ -27,7 +27,16 @@
 	Результат = Новый Соответствие;
 
 	Для сч = 1 По 10 Цикл
-		ДобавитьНеПустоеЗначениеВКоллекцию(Результат, Вычислить("Ключ" + сч), Вычислить("Значение" + сч));
+
+		Ключ     = Вычислить("Ключ" + сч);
+		Значение = Вычислить("Значение" + сч);
+
+		Если Ключ = NULL Или Значение = NULL Тогда
+			Прервать;
+		КонецЕсли;
+
+		Результат.Вставить(Ключ, Значение);
+
 	КонецЦикла;
 
 	Возврат Новый ФиксированноеСоответствие(Результат);
@@ -38,8 +47,3 @@
 	Возврат Новый Соответствие(Новый ФиксированноеСоответствие(Соответствие));
 КонецФункции
 
-Процедура ДобавитьНеПустоеЗначениеВКоллекцию(Коллекция, Ключ, Значение)
-	Если Ключ <> NULL И Значение <> NULL Тогда
-		Коллекция.Вставить(Ключ, Значение);
-	КонецЕсли;
-КонецПроцедуры

src/Модули/Списки.os

@@ -17,7 +17,15 @@
 	Результат = Новый СписокМассив;
 
 	Для сч = 1 По 32 Цикл
-		ДобавитьНеПустоеЗначениеВКоллекцию(Результат, Вычислить("Элемент" + сч));
+
+		Значение = Вычислить("Элемент" + сч);
+
+		Если Значение = NULL Тогда
+			Прервать;
+		КонецЕсли;
+
+		Результат.Добавить(Значение);
+
 	КонецЦикла;
 
 	Возврат Новый ФиксированныйСписок(Результат);
@@ -40,9 +48,3 @@
 	Возврат Новый ФиксированныйСписок(Результат);
 
 КонецФункции
-
-Процедура ДобавитьНеПустоеЗначениеВКоллекцию(Коллекция, Значение)
-	Если Значение <> NULL Тогда
-		Коллекция.Добавить(Значение);
-	КонецЕсли;
-КонецПроцедуры