Говнокод

Процедура СортировкаСписка(Список) 
	
	Перем лСредний;  
	
	лЛевый= СоздатьОбъект("СписокЗначений");
	лПравый = СоздатьОбъект("СписокЗначений");
	
	Если Список.РазмерСписка()>1 Тогда  
		
		лРазмерСписка = Список.РазмерСписка();
		лПозицияСреднего = Цел(лРазмерСписка/2);
		лСреднее = Список.ПолучитьЗначение(лПозицияСреднего);
		
		Для й = 1 По лРазмерСписка Цикл
			
			Если й<>лПозицияСреднего Тогда
				
				лПроверяемоеЗначение =  Список.ПолучитьЗначение(й);
				
				Если лПроверяемоеЗначение<лСреднее Тогда
					
					лЛевый.ДобавитьЗначение(лПроверяемоеЗначение);
					
				ИначеЕсли лПроверяемоеЗначение>лСреднее Тогда
					
					лПравый.ДобавитьЗначение(лПроверяемоеЗначение);
					
				КонецЕсли;
				
			КонецЕсли;
			
		КонецЦикла;
		
		СортировкаСписка(лЛевый);
		СортировкаСписка(лПравый);
		
		Список.УдалитьВсе();
		
		Для й = 1 По лЛевый.РазмерСписка() Цикл
			Список.ДобавитьЗначение(лЛевый.ПолучитьЗначение(й));
		КонецЦикла; 
		
		Список.ДобавитьЗначение(лСреднее); 
		
		Для й = 1 По лПравый.РазмерСписка() Цикл
			Список.ДобавитьЗначение(лПравый.ПолучитьЗначение(й));
		КонецЦикла;
		
	КонецЕсли;
	
	
КонецПроцедуры

Процедура Выполнить()
	
	ОтсортированныйСписок = СоздатьОбъект("СписокЗначений");
	
	СписокЗначений = СоздатьОбъект("СписокЗначений");   
	
	СписокЗначений.ДобавитьЗначение(2);
	СписокЗначений.ДобавитьЗначение(7);
	СписокЗначений.ДобавитьЗначение(15);
	СписокЗначений.ДобавитьЗначение(16);
	СписокЗначений.ДобавитьЗначение(20);
	СписокЗначений.ДобавитьЗначение(21);
	СписокЗначений.ДобавитьЗначение(3);
	СписокЗначений.ДобавитьЗначение(5);
	СписокЗначений.ДобавитьЗначение(4);
	СписокЗначений.ДобавитьЗначение(14);
	СписокЗначений.ДобавитьЗначение(12);
	СписокЗначений.ДобавитьЗначение(13);
	СписокЗначений.ДобавитьЗначение(11);
	СписокЗначений.ДобавитьЗначение(19);
	СписокЗначений.ДобавитьЗначение(1);
	СписокЗначений.ДобавитьЗначение(8);
	СписокЗначений.ДобавитьЗначение(6);
	СписокЗначений.ДобавитьЗначение(17);
	СписокЗначений.ДобавитьЗначение(9);
	СписокЗначений.ДобавитьЗначение(10);
	СписокЗначений.ДобавитьЗначение(18);
	
	СортировкаСписка(СписокЗначений);
	
	ВыбранноеЗначение = 0;
	СписокЗначений.ВыбратьЗначение(ВыбранноеЗначение);
	
КонецПроцедуры

Запостил:

informatikmarazmatik, 16.05.2012 (Updated 25.03.2018)

Комментарии (5) RSS

Lowezar 14 лет ago # 0

ЖЖесть. 🙂 Я не знаком, конечно, с 1с, но насколько я понял - оно даже если сортировать особо нечего (всё и так по порядку) - всё равно весь список перелопатит. 🙂
Ответить
- bormand 14 лет ago # 0 ⇈
  
  А ведь это quicksort...
  Ответить
posh 14 лет ago # 0

Не вникал в детали реализации, не искал ошибки.
Но по виду это действительно qsort - самый теоретически быстрый алгоритм сортировки в среднем случае.
В чем шутка юмора?
Ответить
- guest 14 лет ago # 0 ⇈
  
  а прикол вот в чем:
  
  Синтаксис:
  
  Сортировать(<Направление>, <ДокументыПоДате>)
  
  Англоязычный синоним:
  
  Sort
  
  Параметры:
  
  <Направление>
  
  Необязательный параметр. Числовое выражение. Если — 0, то сортировка по возрастанию. Если не 0 то сортировка по убыванию. Значение по умолчанию — 0.
  
  <ДокументыПоДате>
  
  Необязательный параметр. Имеет смысл только в том случае, если значениями списка значений являются документы. В этом случае можно задавать сортировку документов по их хронологии. Число: 1 — сортировка по хронологии документов; 0 — нет. Значение по умолчанию — 0.
  
  Описание:
  
  Метод Сортировать выполняет сортировку списка по значениям. Если первый элемент списка (значение в первой позиции) имеет базовый тип данных (число, строка, дата), то сортировка проводится по значениям элементов, приведенных стандартными правилами к типу первого элемента. В противном случае, если первый элемент имеет агрегатный тип данных, сортировка проводится по значениям элементов, приведенных к строковому представлению типа данных.
  
  Пример:
  
  Спис.Сортировать();
  Ответить
  - nixel 14 лет ago # 0 ⇈
    
    Интересно было бы увидеть сравнение встроенных в платформу и рукописных алгоритмов сортировки.
    Для 7.7 (а если я не ошибаюсь, в топике именно она) это конечно не очень актуально, но для 8.2 или 8.3 глянул бы.
    Ответить