Combinations Sub: choose(n,k)


Active Member
Licensed User

I developed a sub for computinf the amout of combinations, given a population N, choose subset K (notation: choose(n,k).
Example: how many combinations are possible for 7 cards from 52?
choose(52,7). To compute n!/((n-k)!*k!)
Because this creates an overflow for relatively small numbers I created an alternative and really fast routine.

Sub Choose(nn,kk)
   ' effficient Choose method implementation

   If (nn<0) OR (kk<0) Then Msgbox("Invalid negative parameter in Choose()..")
   If (nn<kk) Then Return 0
   If (nn=kk) Then Return 1

   delta = 0
   imax = 0

   If (kk < (nn-kk)) Then 'choose(100,3)
      delta = nn-kk
      imax = kk
   Else 'choose(100,97)
      delta = kk
      imax = nn-kk
   End If

   ans = delta+1
   For i = 2 To imax
      ans = (ans * (delta + i))/i
   Return ans
End Sub
I am building an application for displaying and storing all possible combinations. When ready I will publish.

Have fun