VBA recursive function doesn't work

Question

I want to write this function from here: https://math.stackexchange.com/questions/721494/what-is-the-value-of-this-game

I have written the following, but it doesn't work.

 Function value(b As Integer, r As Integer)

If r = 0 Then
  value = 0
End If

If b = 0 And r > 0 Then
  value = r
End If

 If (b < 0 Or r <= 0) Then
   value = 0
 End If

value(b, r) = (b / (b + r)) * (-1 + value(b - 1, r)) + (r / (b + r)) * (1 + value(b, r-1 ))

End Function

Can someone explain why it doesn't work, I am very new to VBA and programming.

Dmitry Pavliv · Accepted Answer · 2014-03-22 11:57:08Z

1

This should work:

Function gameValue(b As Integer, r As Integer)
    If b < 0 Or r <= 0 Then
      gameValue = 0
      Exit Function
    End If

    If b = 0 And r > 0 Then
      gameValue = r
      Exit Function
    End If

    gameValue = (b / (b + r)) * (-1 + gameValue(b - 1, r)) + (r / (b + r)) * (1 + gameValue(b, r - 1))
End Function

Note that I've changed function name from value to gameValue. The reason is because there is built-in excel worksheet function with name VALUE

answered Mar 22, 2014 at 11:57

Dmitry Pavliv

35.9k13 gold badges85 silver badges85 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBA recursive function doesn't work

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related