Триплетные числа (спортивное программированинне)

&НаКлиенте
Процедура Команда1(Команда)
	
	КоличествоТроекСимволов = 100000; // длина итоговой строки = икс-три
	ВалиднаяТестоваяСтрока = Ложь;
	
	ДлительностьТеста1 = 0; ЕстьОшибкиТест1 = 0;
	ДлительностьТеста2 = 0; ЕстьОшибкиТест2 = 0;
	
	НачалоТеста = ТекущаяУниверсальнаяДатаВМиллисекундах();
	
	Для Итератор = 1 По 10 Цикл
		
		ТестоваяСтрока = СгенерироватьТрипод(КоличествоТроекСимволов, ВалиднаяТестоваяСтрока); // избегаем кеширования
		
		СтартТеста = ТекущаяУниверсальнаяДатаВМиллисекундах();
		Результат = scientes_2(ТестоваяСтрока);
		ДлительностьТеста1 = ДлительностьТеста1 + ((ТекущаяУниверсальнаяДатаВМиллисекундах() - СтартТеста) / 1000);
		
		ЕстьОшибкиТест1 = ЕстьОшибкиТест1 + Число(Результат = ВалиднаяТестоваяСтрока);
		
	КонецЦикла;
	
	Для Итератор = 1 По 10 Цикл
		
		ТестоваяСтрока = СгенерироватьТрипод(КоличествоТроекСимволов, ВалиднаяТестоваяСтрока);
		
		СтартТеста = ТекущаяУниверсальнаяДатаВМиллисекундах();
		Результат = ЯвляетсяТриподом_2(ТестоваяСтрока);
		ДлительностьТеста2 = ДлительностьТеста2 + ((ТекущаяУниверсальнаяДатаВМиллисекундах() - СтартТеста) / 1000);
		
		ЕстьОшибкиТест2 = ЕстьОшибкиТест2 + Число(Результат = ВалиднаяТестоваяСтрока);
		
	КонецЦикла;
	
	ОбщаяДлительность = (ТекущаяУниверсальнаяДатаВМиллисекундах() - НачалоТеста) / 1000; // в секундах
	
	Сообщить("Длительность теста" + Символы.Таб + Строка(ОбщаяДлительность));
	Сообщить("Вариант автора:" + Символы.Таб + Строка(ДлительностьТеста1) + Символы.Таб + ЕстьОшибкиТест1);
	Сообщить("Мой вариант:" + Символы.Таб + Строка(ДлительностьТеста2) + Символы.Таб + ЕстьОшибкиТест2);
	
КонецПроцедуры

#Область ФункцииДляАнализа

&НаСервере
Функция scientes(ЛитералЧисла)
	
	Приемник = "";
	Хвост = "";
	ДлинаПодстроки = 0;
	
	Для ПозицияСтроки = 1 По СтрДлина(ЛитералЧисла) Цикл
		
		СимволПозиции = Сред(ЛитералЧисла, ПозицияСтроки, 1);
		Если Хвост = СимволПозиции + СимволПозиции Тогда
			
			Приемник = Лев(Приемник, ДлинаПодстроки - 2);
			Хвост = Прав(Приемник, 2);
			ДлинаПодстроки = ДлинаПодстроки - 2;
			
		Иначе
			
			Приемник = Приемник + СимволПозиции;
			Хвост = Прав(Хвост, 1) + СимволПозиции;
			ДлинаПодстроки = ДлинаПодстроки + 1;
			
		КонецЕсли;
		
	КонецЦикла;
	
	Возврат (Приемник = "");
	
КонецФункции

&НаСервере
Функция ЯвляетсяТриподом(ЛитералЧисла)
	
	Стек = Новый Массив;
	
	Для ПозицияВЛитерале = 1 По СтрДлина(ЛитералЧисла) Цикл
		
		Стек.Добавить(Сред(ЛитералЧисла, ПозицияВЛитерале, 1));
		РазмерСтека = Стек.ВГраница();
		//Пока ?(Стек.Количество() >= 3,  (Стек[РазмерСтека] = Стек[РазмерСтека - 1]) И (Стек[РазмерСтека] = Стек[РазмерСтека - 2]), Ложь) Цикл // 399900, 9,62%
		Пока Истина Цикл  
			
			Если РазмерСтека < 2 Тогда Прервать; КонецЕсли;
			Если НЕ ((Стек[РазмерСтека] = Стек[РазмерСтека - 1]) И (Стек[РазмерСтека] = Стек[РазмерСтека - 2])) Тогда Прервать КонецЕсли;
			
			Стек.Удалить(РазмерСтека);
			Стек.Удалить(РазмерСтека - 1);
			Стек.Удалить(РазмерСтека - 2);
			
			РазмерСтека = Стек.ВГраница();
			
		КонецЦикла;
		
	КонецЦикла;
	
	Возврат Стек.Количество() = 0;
	
КонецФункции

&НаСервере
Функция ЯвляетсяТриподом_2(ЛитералЧисла)
	
	Стек = Новый Массив;
	
	Для ПозицияВЛитерале = 1 По СтрДлина(ЛитералЧисла) Цикл
		
		РабочийСимвол = Сред(ЛитералЧисла, ПозицияВЛитерале, 1);
		РазмерСтека = Стек.ВГраница();
		
		Если  РазмерСтека > 2
			И НЕ ((РабочийСимвол = Стек[РазмерСтека]) И (РабочийСимвол = Стек[РазмерСтека - 1])) Тогда
			
			Стек.Удалить(РазмерСтека);
			Стек.Удалить(РазмерСтека - 1);
			
		Иначе
			Стек.Добавить(РабочийСимвол);
			
		КонецЕсли;
		
	КонецЦикла;
	
	Возврат Стек.Количество() = 0;
	
КонецФункции


&НаСервере
Функция СгенерироватьТрипод(Знач КоличествоТроекСимволов, КорректнаяСтрока = Истина)
	
	ДопустимыйАлфавит = "123456789";
	ГенераторСлучайныхЧисел = Новый ГенераторСлучайныхЧисел;
	
	МасивШаблонов = Новый Массив;
	МасивШаблонов.Добавить("%1%1%1"); // начальная тройка
	МасивШаблонов.Добавить("%1%2%1%1"); // вариант одна слева, две справа
	МасивШаблонов.Добавить("%1%1%2%1"); // вариант две слева, одна справа
	МасивШаблонов.Добавить("%1%2%3%3"); // добавим шаблон, который гарантирует, что тройка будет невалидной
	
	НачальныйСимвол = Сред(ДопустимыйАлфавит, ГенераторСлучайныхЧисел.СлучайноеЧисло(1, 9), 1);
	РезультирующаяСтрока =  СтрШаблон(МасивШаблонов[0], НачальныйСимвол);
	
	Для Итератор = 2 По КоличествоТроекСимволов Цикл
		
		СимволАлфавита = Сред(ДопустимыйАлфавит, ГенераторСлучайныхЧисел.СлучайноеЧисло(1, 9), 1);
		ВариантОкружения = ГенераторСлучайныхЧисел.СлучайноеЧисло(1, 2);
		
		Если Итератор = КоличествоТроекСимволов И НЕ КорректнаяСтрока Тогда
			
			// заменим первый символ на "не такой". так у нас последняя тройка будет невалидной
			// и, заодно, сохраним сложность проверки
			
			НовыйАлфавит = СтрЗаменить(ДопустимыйАлфавит, СимволАлфавита, "");
			ДополнительныйСимвол = Лев(НовыйАлфавит, 1);
			РезультирующаяСтрока = СтрШаблон(МасивШаблонов[3], ДополнительныйСимвол, РезультирующаяСтрока, СимволАлфавита);
			
		Иначе
			РезультирующаяСтрока = СтрШаблон(МасивШаблонов[ВариантОкружения], СимволАлфавита, РезультирующаяСтрока);
		КонецЕсли;
		
	КонецЦикла;
	
	Возврат РезультирующаяСтрока;
	
КонецФункции

&НаСервере
Функция scientes_2(т) 
	приемник="";хвост="";
	для поз=1 по СтрДлина(т) цикл
		ц=Сред(т,поз,1);
		если хвост=ц+ц тогда
			ДлинаПриемника = СтрДлина(Приемник);
			приемник=Лев(приемник,ДлинаПриемника-2);
			хвост=Прав(приемник,2);
		иначе
			приемник=приемник+ц;
			хвост=Прав(хвост,1)+ц;
			
		конецесли;  
	конеццикла;    
	возврат (приемник="");
КонецФункции


#КОнецОбласти