54.调整数组顺序使奇数位于偶数前面。

题目：输入一个整数数组，调整数组中数字的顺序，使得所有奇数位于数组的前半部分，
所有偶数位于数组的后半部分。要求时间复杂度为O(n)。

 

VB.NET codes as below:

 

Module MyModule

 

    Sub Main()

        Dim array = {1, 2, 3, 4, 5, 6, 7, 8, 9, 0, 0, 9, 8, 7, 6, 5, 4, 3, 2, 2}

 

        array = SortArray(array)

 

        For Each i As Integer In array

            Console.WriteLine(i)

        Next

 

        Console.ReadKey()

    End Sub

 

    Public Function SortArray(ByVal array As Integer()) As Integer()

        If Not array Is Nothing Then

            Dim startIndex = 0

            Dim endIndex = array.Length - 1

 

            While (startIndex < endIndex)

                If Not (array(startIndex) Mod 2 = 0) Then

                    startIndex += 1

                ElseIf (array(endIndex) Mod 2 = 0) Then

                    endIndex -= 1

                Else

                    Dim mark = array(startIndex)

                    array(startIndex) = array(endIndex)

                    array(endIndex) = mark

                    startIndex += 1

                    endIndex -= 1

                End If

            End While

        End If

        Return array

    End Function

End Module