Module Module1
    ' Chapter 44 - Reverse List

    ' recursive routine
    Function myReverseList(numList) As List(Of Integer)
        Dim first As Integer

        If (numList.count <> 0) Then
            first = numList(0)
            numList.RemoveAt(0)
            myReverseList(numList)
            numList.add(first)
        End If

        Return numList
    End Function


    Sub Main()
        Dim eat As String
        Dim listA As New List(Of Integer) From {3, 5, 10, 2}
        Dim listB As New List(Of Integer) From {3, 5, 7, 9, 11}

        Console.WriteLine(String.Format("Original list: {0}", String.Join(", ", listA)))
        myReverseList(listA)
        Console.WriteLine(String.Format("Recursively reversed list: {0}", String.Join(", ", listA)))

        Console.WriteLine("")
        Console.WriteLine(String.Format("Original list: {0}", String.Join(", ", listB)))
        listB.Reverse()
        Console.WriteLine(String.Format("List method reversed list: {0}", String.Join(", ", listB)))

        Console.WriteLine("")
        Console.WriteLine("Any key to continue")
        eat = Console.ReadLine()
    End Sub

End Module