Был конкурс...
http://1c.proclub.ru/modules/mydownloads/personal.php?cid=5&lid=1419</a>
И заглох...
вроде-бы всё решено... самый быстрый метод использует массивы, что не очень хорошо, его можно переделать без использования массивов....
И тут оказалось - что процентов на 10-20 ускорить - легко...

Почему был? Он и сейчас есть. Вот и ссылочка у тебя рабочая.

(1) Надо обновить... Давай мыло.

Кидай сюда. Мыло только завтра смогу проверить.
---
что за глюк???

(3-6) Красиво...

ИначеЕсли Вариант="NefedovSergey /NS/" Тогда   //  Nefedov_Sergei@mail.ru  
       ВсегоСтрок=Тз.КоличествоСтрок(ТЗ.КоличествоСтрок()+2); // добавим строки вспомогательные...
       Тз.УстановитьЗначение(ВсегоСтрок+1,"К",максЗнач); //Пропишем туда неудаляемое и удаляемое значения...  
       Тз.УстановитьЗначение(ВсегоСтрок+2,"К",0);
       ТЗ.ВыбратьСтроки();  // найдем первую оставляемую строку
       Пока (ТЗ.ПолучитьСтроку()=1)и(УсловиеВыполняется(ТЗ.К)=0) Цикл  
       КонецЦикла;  
       НачалоПервогоБлока=Тз.НомерСтроки;
       Если НачалоПервогоБлока>ВсегоСтрок Тогда
           ТЗ.УдалитьСтроки(); // Значит возвращаемую пустую ТЗ
       Иначе   // найдем первую удаляемую строку                  
           Пока (ТЗ.ПолучитьСтроку()=1)и(УсловиеВыполняется(ТЗ.К)=1) Цикл  
           КонецЦикла;
           КонецПервогоБлока=ТЗ.НомерСтроки;
           Если КонецПервогоБлока>ВсегоСтрок Тогда //До самого конца дошли
               ТЗ.УдалитьСтроку(ВсегоСтрок+2);
               ТЗ.УдалитьСтроку(ВсегоСтрок+1);
               Если началоПервогоБлока>1 тогда
                   ТЗ.Выгрузить(ТЗ_СЛУЖ,НачалоПервогоБлока);
                   ТЗ=ТЗ_СЛУЖ;
               КонецЕсли;
           Иначе  // найдем начало следующего блока
               ТЗ_Служ=создатьобъект("ТаблицаЗначений");
               ТЗ1=создатьобъект("ТаблицаЗначений");
               Пока (ТЗ.ПолучитьСтроку()=1)и(УсловиеВыполняется(ТЗ.К)=0) Цикл  
               КонецЦикла;
               НачалоОчередногоБлока=ТЗ.НомерСтроки;
               Если НачалоОчередногоБлока>ВсегоСтрок Тогда //В таблице один блок
                   Если началопервогоблока>1 тогда
                       ТЗ.Выгрузить(ТЗ_СЛУЖ,НачалоПервогоБлока,КонецПервогоБлока-1);
                   Иначе    
                       ТЗ.Выгрузить(ТЗ_СЛУЖ,1,1);
                       ТЗ_СЛУЖ.Количествострок(КонецПервогоБлока-1);
                       ТЗ_СЛУЖ.Заполнить(ТЗ);
                   КонецЕсли;
                   ТЗ=ТЗ_СЛУЖ;
               Иначе //Метод количествоСтрок() на уменьшение не использую - он часто работает неверно.
                   ТЗ.УдалитьСтроку(ВсегоСтрок+2);
                   ТЗ.УдалитьСтроку(ВсегоСтрок+1);
                   ТЗ.НоваяКолонка("_Уд");
                   ТЗ.Заполнить(1,НачалоПервогоБлока,КонецПервогоБлока-1,"_Уд");
                   ТЗ._Уд=1;  
                   колстр=конецпервогоблока-началопервогоблока+1;
                   Пока ТЗ.Получитьстроку()=1 Цикл
                       Если УсловиеВыполняется(ТЗ.К)=1 Тогда
                           ТЗ._Уд=1;
                           колстр=колстр+1;
                       КонецЕсли;
                   КонецЦикла;  
                   ТЗ.Сортировать("-_Уд");
                   ТЗ.УдалитьКолонку("_Уд");    
                   ТЗ.Выгрузить(ТЗ_СЛУЖ,1,1);
                   ТЗ_СЛУЖ.КоличествоСтрок(колстр);
                   ТЗ_СЛУЖ.Заполнить(ТЗ);
                   ТЗ=ТЗ_Служ;
               КонецЕсли;
           КонецЕсли;
       КонецЕсли;  
       строкКода=57;
   Иначе            
       Предупреждение("Неизвестный вариант: "+Вариант,3);
   КонецЕсли;

+ метод предыдущий уможно убить, и объявление массива - то-же.

(8+) Кто бросил валенок на пульт?

(mszsuz) И ссылка у тебя на сайте - неверная.

(0) Проверил. Молодец! Выложил.
Завтра ещё попроверяю ... :)

(13) Прикольно... А качают ведь!

Кстати, Дитер так возражений и не привел в ветке на Т1С...

(15) А что можно возразить?

Ну там... Святая вера и все такое... :-)

По ссылке в (0)...
Неужели никто не скажет, что круто?

Круто, круто... Круче - только вареные яйца...

(18) это что типа голосования?!
Тогда я отдаю свой голос алгоритму TDV. Именно его я использую. А насчет алгоритма с массивами. Это самый медленный алгоритм! Запустите тест на компе с 32м ОЗУ и вы все увидите сами. К тому же присутствует небольшое жульничество. Массив в миллион элементов объявляется для всех, а использует его только один алгоритм.

(20) Зря ты это сказал ;)...

Про вот это:
//---
//Метод количествоСтрок() на уменьшение не использую - он часто работает неверно.
//---
можно подробности?

(15) Привет, а я и не возражаю. Если ты помнишь речь тогда шла не о самом быстром методе удаления строк, а об альтернативных тому, который использовал автор ветки. По поводу веры - зря. Ничего такого я не говорил. Просто нет у меня необхожимости удалять строки из огромных таблиц. Обхожу этот случай на стадии формирования и заполнения ТЗ. Вот поэтому и применяю метод УдалитьСтроку()последовательно ко всем строкам ТЗ. Естественно при больших объёмах ТЗ этот метод медленее предложенных на конкурс. Но во-первых - на то он и конкурс, во-вторых - я с эти не спорил, и наконец в-третьих - ситуации, когда необходим быстрый метод удаления строк из большой ТЗ можно избежать.

Можно и быстрее, опять-таки процентов на 10-20%. Все, все приведенные алгоритмы можно ускорить крайне простым способом!

(20) Зайди по ссылке (0) Нет никаких массивов уже...
Идея метода в самом его конце - смысл - что не зависимо от размера ТЗ - заполнить - работает в пару раз быстрее, чем выгрузить.
(22) Создай ТЗ, отсортируй, уменьши методом количествоСтрок() - и всё поймешь...
Просто в варианте (1, в тесте, когда Оставляется блок в начале ТЗ) - методом количество строк можно сделать быстрее, и он отработает - но... если ТЗ будет создаваться не так, как в конкурсе - результаты будут абсолютно неверные.

Есть метод еще быстрее. Теоретически.

(26) Штатными средствами? Как?

27. Тз в строку - вырезать нужный участок, затем опять из строки в Тз.

(28) Нет, большая ТЗ в строку нэ влэзит... и очень медленно это...

(26) format c:

(27) Прислать?

29. Но ведь должен быть способ еще быстрее... Нет предела совершенству :)

(31) А почему-бы не отослать его MSZSUZ-у, чтоб он включил, либо не выложить в форум?

Правда, будут возражения, что мол, не совсем в рамках конкурса, но если возвращает правильный результат в рамках конкурса, то почему бы и нет?

MSZSUZ-у нельзя слать, он потом решения пшифрует и продает.

(31) Да не шлю, потому что назовут плагиатором!
NS, все проще пареной репы - делаешь inline, заменяешь вызов функции непосредственной проверкой, при этом еще и убираешь деление на 2,+ так по мелочам. Попробуй, получишь свой вариант на 30% быстрее на 100000 строках.
Вот и все дела. Т.е. красота приноситься в жертву скорости, в реальной жизни так иногда бывает.

(36) Это противоречит условию конкурса.

Название конкурса - самый быстрый вариант  ... значений!
Значит надо поменять условия. 30% увеличение быстродействия того стоят!

(35)>MSZSUZ-у нельзя слать, он потом решения пшифрует и продает.
Уже так?! Хорошо, отвечу - не будь пустозвоном - подтверди свои слова фактами.

Мне казалось, что ветка до упора вырастет, причем есть, что обсуждать...
Но похоже политика форума привела к исчезновению личностей - с кем я мог бы обсудить....

(40) Так ты наверное ожидал, что тебе тут ответит ГосподьБог™ ©?
А по-моему, mszsuz вполне тянет на личность.

(40) Уже два дня пробывал... ничего быстрее чем ты не придумал... надоело.

39. Юмор.

Нет, юмор - вот он!
           Дупло=создатьОбъект("ТаблицаЗначений");
       Дупло.НоваяКолонка("К");
       ТЗ.ВыбратьСтроки();
       пока ТЗ.ПолучитьСтроку()=1 цикл
       гнездо=Тз.К;
       если (УсловиеВыполняется(гнездо)=1) тогда
           Тб.НоваяСтрока();
           Дупло.К=гнездо;                            
       конецесли;    
       конеццикла;
       Тз=Дупло;
Ирония в том, что в конце Тз и есть результат, и результат правильный в рамках поставленной задачи, т.е. удалить из таблицы ненужные строки по условию, однако этот результат не считаеться правильным в видении MSZSUZа. А скорость-то выполнения еще чуть-чуть быстрее чем у NS.

В ТЗ кроме колонки "К" есть вроде еще парочка ;-)

Прикол... метод зполнить работает бвстрее с заполненным третьим параметром....
Плюс - добавление двух строк - немного противоречит условию - можно от них избавиться - только модуль чуть больше будет...