Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2016.07.24;
Скачать: CL | DM;

Вниз

Удивительный QuickSort   Найти похожие ветки 

 
DayGaykin ©   (2015-10-11 19:15) [0]

Простой пример:

program Project1;
{$APPTYPE CONSOLE}

uses
 SysUtils, Classes;

function Cmp(List: TStringList; Index1, Index2: Integer): Integer;
begin
 Writeln("Compare: ", Index1, " ", Index2);
 Result := CompareStr(List[Index1], List[Index2]);
end;

var
 SL: TStringList;
begin
 try
   SL := TStringList.Create;
   try
     SL.Add("1");
     SL.Add("2");
     SL.Add("3");
     SL.Add("4");
     SL.CustomSort(Cmp);
     Writeln(SL.Text);
   finally
     SL.Free;
   end;
 except
   on E: Exception do
     Writeln(E.ClassName, ": ", E.Message);
 end;
 readln;
end.


Вывод:

Compare: 0 1
Compare: 1 1
Compare: 3 1
Compare: 2 1
Compare: 1 1
Compare: 2 2
Compare: 3 2
Compare: 2 2
1
2
3
4

Вопрос: зачем функция Cmp вызывается с одинаковыми значениями в параметрах Index1 и Index2?
Ведь заведомо известно, что во-первых, строка равна сама себе, во-вторых строку все-равно бессмысленно менять местами саму с собой.


 
картман ©   (2015-10-11 19:37) [1]

http://guildalfa.ru/alsha/node/10



Страницы: 1 вся ветка

Текущий архив: 2016.07.24;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.013 c
15-1447023946
Kerk
2015-11-09 02:05
2016.07.24
Кресло


15-1446327002
Юрий
2015-11-01 00:30
2016.07.24
С днем рождения ! 1 ноября 2015 воскресенье


15-1445780305
Кто б сомневался
2015-10-25 16:38
2016.07.24
Посоветуйте какие то интересные сайты, типа хабра


2-1416491371
Дмитрий
2014-11-20 16:49
2016.07.24
MySQL, AnyDAC, плавающий "Out of sync"


15-1444396522
ВладОшин
2015-10-09 16:15
2016.07.24
нужно быстро отсечь "хвост" массива чисел