程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 極快的正整數排序函數

極快的正整數排序函數

編輯:Delphi

實現原理: 對比二進制位.

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
  Button1: TButton;
  Memo1: TMemo;
  procedure Button1Click(Sender: TObject);
  procedure FormCreate(Sender: TObject);
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

type
 TIntArr = array of Integer;

{極快的正整數排序函數}
procedure IntSort(arr:TIntArr; low:Integer=0; high:Integer=-1; k:Cardinal=$80000000; c:Cardinal=1);
var
 i,j,x: Integer;
begin
 if high = -1 then high := Length(arr) -1;
 i := low;
 j := high;
 while (i < j) do
 begin
  while (arr[j] and k <> 0) and (i < j) do Dec(j);
  while (arr[i] and k = 0) and (i < j) do Inc(i);
  if i < j then
  begin
   x := arr[j];
   arr[j] := arr[i];
   arr[i] := x;
  end else begin
   if arr[j] and k <> 0 then Dec(i) else Inc(j);
   Break;
  end;
 end;
 if k > c then
 begin
  if low < i then IntSort(arr, low, i, k div 2);
  if j < high then IntSort(arr, j, high, k div 2);
 end;
end;

{測試}
procedure TForm1.Button1Click(Sender: TObject);
var
 MyArr: TIntArr;
 i: Integer;
 t: Int64;
begin
 SetLength(MyArr, MAXWord);
 for i := Low(MyArr) to High(MyArr) do MyArr[i] := Random(MaxInt);
 
 t := GetTickCount;
 
 IntSort(MyArr); //調用排序函數
 
 Text := IntToStr(GetTickCount - t);

 Memo1.Clear;
 for i := 0 to Length(MyArr)-1 do
 begin
  if i mod 1000 = 0 then
   Memo1.Lines.Add(IntToStr(MyArr[i]));
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Memo1.Clear;
 Memo1.Align := alLeft;
 Memo1.ScrollBars := ssVertical;
end;

end.


  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved