クイックソートプログラムについて

visual basic　におけるクイックソートについて質問させていただきます。今回再起呼び出しを用いてクイックソートのプログラムを書きましたがエラー以前にフリーズして動かなくなる事象が発生しています。なお、今回は1～100000までの数字をランダムに20個生成することとし、そのプログラムは既に完成しています。以下作成したプログラムになります。修正よろしくお願いします。

 Private Sub DivisionSort(minNo As Long, maxNo As Long)
        Dim i As Long = minNo
        Dim j As Long = maxNo
        Dim pivot As Integer = Data(Int((minNo + maxNo) / 2))
        While i <= j
            While Data(i) < pivot And i < maxNo
                i = i + 1
            End While
            While pivot < Data(j) And j > maxNo
                j = j - 1
            End While
            Swap(i, j)
        End While

        If (minNo < j) Then
            DivisionSort(minNo, j)
        End If
        If (i < maxNo) Then
            DivisionSort(i, maxNo)
        End If
    End Sub

Private Sub Swap(num1 As Integer, num2 As Integer)
        Dim temp As Integer
        temp = Data(num1)
        Data(num1) = Data(num2)
        Data(num2) = temp
    End Sub

YAmaGNZ

2022/06/24 06:31

永久ループしているのでしょう。ステップ実行するなりしてデバッグしてはどうでしょうか

KOZ6.0

2022/06/24 07:37

パッと見ですが、引数を ByRef にしないと Swap が機能しないですね。与える引数 i,j は Long なのに Integer になっているのも謎

KOZ6.0

2022/06/24 07:40

あ、ごめんなさい、上のコメントは勘違いです。

行動規範の内容に同意します

回答1件

ベストアンサー

こんな感じでどうでしょうか。

VB
1Private Data As Integer() = Enumerable.Range(1, 20).OrderBy(Of Guid)(Function(i As Integer) Guid.NewGuid()).ToArray()
2
3Sub Main()
4    Console.WriteLine(String.Join(",", Data.Select(Function(i As Integer) i.ToString())))
5    DivisionSort(0, Data.Length - 1)
6    Console.WriteLine(String.Join(",", Data.Select(Function(i As Integer) i.ToString())))
7    Console.ReadKey()
8End Sub
9
10Private Sub DivisionSort(minNo As Integer, maxNo As Integer)
11    Dim i As Integer = minNo
12    Dim j As Integer = maxNo
13    Dim pivot As Integer = Data((minNo + maxNo) \ 2)
14    Dim temp As Integer
15    Do
16        While Data(i) < pivot
17            i += 1
18        End While
19        While pivot < Data(j)
20            j -= 1
21        End While
22
23        If i >= j Then Exit Do
24
25        temp = Data(i)
26        Data(i) = Data(j)
27        Data(j) = temp
28        i += 1
29        j -= 1
30    Loop
31    If minNo < i - 1 Then
32        DivisionSort(minNo, i - 1)
33    End If
34    If j + 1 < maxNo Then
35        DivisionSort(j + 1, maxNo)
36    End If
37End Sub