Programming Quiz of the Day/Week/Month.

Question 1: What is the value of x after this code executes?

dim j as integer, x as integer

j = 5

x = (-1 ^ (j - 1))

Question 2: What mathematical law does the following code implement?

'Globals

dim i as integer, j as integer

dim dValues() as double

Private Function DoEet() As Double

    i = UBound(dValues)

    For j = 1 To i + 1

        DoEet = DoEet + RecursiveHell(-1, 0, -1, 1)

    Next j

End Function

Private Function RecursiveHell(k As Integer, l As Integer, _

    m As Integer, x As Double) As Double

Dim temp As Double

    If k = -1 Then

        k = 0

        RecursiveHell = RecursiveHell + RecursiveHell(k, 1, k, 1)

    Else

        If l < j

            Do While m < i - (j - 1)

                temp = x * dValues(m)

                RecursiveHell = RecursiveHell + RecursiveHell(k, l + 1, m + 1, temp)

                m = m + 1

            Loop

        Else    'l = j

            Do While m < i

                temp  = x * dValues(m) * ((-1) ^ (j + 1))

                RecursiveHell = RecursiveHell + temp 

                m = m + 1

            Loop

        End If

    End If

End Function

(Might want to resize your browser so that this fits on one line:)

-----------------------------------------------------------------------------------

(Don't know what recursion is? Click here to find out.)