[silverlight]

ترتيب تصاعدي

PHP كود :

       Dim binArray As Integer() = New Integer() {1, 1, 1, 0, 0, 1, 1, 1, 0, 0}
        Dim first As Integer = 0
        Dim last As Integer = binArray.Length - 1
        While first < last
            If 0 = binArray(first) Then
                first += 1
            ElseIf 1 = binArray(last) Then
                last -= 1
            Else
                binArray(first) = 0
                binArray(last) = 1
            End If
        End While 


ايضا الكود اعلاه يمكن تحويلة الي روتين كالتالي

PHP كود :

   Private Sub Sort(binArray As Integer())
        Dim first As Integer = 0
        Dim last As Integer = binArray.Length - 1
        While first < last
            If 0 = binArray(first) Then
                first += 1
            ElseIf 1 = binArray(last) Then
                last -= 1
            Else
                binArray(first) = 0
                binArray(last) = 1
            End If
        End While
    End Sub 


و الروتين يستخدم كالتالي

PHP كود :

       Dim binArray As Integer() = New Integer() {1, 1, 1, 0, 0, 1, 1, 1, 0, 0}
        Sort(binArray)