モナーの *やさしい* Delphi質問スレ Ver3
■ このスレッドは過去ログ倉庫に格納されています
0712667
NGNG気になったので改めて試したところ、整数ではDelphiが、実数ではVB.NETが速い結果が出ました。
VB.NETで配列を逆順にソートするテスト。Delphiでも同じアルゴリズムで試してみてください。
その後型をDouble→Integerにしてもう一度。
Option Explicit On: Option Strict On: Imports System
Class VBNET
Const Count As Integer = 1024 * 16
Public Shared Sub Main(Args() As String)
Dim Start As DateTime = DateTime.Now
Dim A(Count - 1) As Double: Dim T As Double: Dim I, J As Integer
For I = 0 To Count - 1: A(I) = I: Next
For I = 0 To Count - 2: For J = I + 1 To Count - 1
If A(I) < A(J) Then T = A(I): A(I) = A(J): A(J) = T: End If
Next: Next
Dim Period As DateTime = DateTime.Now
Dim Time As TimeSpan = DateTime.op_Subtraction(Period, Start)
Console.WriteLine("{0}", Time.TotalSeconds)
End Sub
End Class
■ このスレッドは過去ログ倉庫に格納されています