things change

Mike’s blog – for his amusement

Code to count the15s in a cribbage hand

Visual Basic code to play cribbage

Tags: , , , ,

Visual Basic code to count the number of 15s in a cribbage hand

This section of code is a small but necessary part of my current project to write a Visual Basic program to play the card game cribbage.
I’m rather please with this, though younger brains might be able to come up with something slicker.

Sub HowMany15s(Cards() As Integer, Ncards As Integer, ByRef HowMany As Integer)
        '
        ' How many 15s are there in the supplied cards
        ' (uses a binary mask to generate all combinations of cards)
        '
        Dim i, f As Integer

        HowMany = 0
        For i = 1 To 2 ^ Ncards - 1
            f = 0
            Select Case Ncards
                Case 3
                    If (i And 1) > 0 Then f = f + Cards(2)
                    If (i And 2) > 0 Then f = f + Cards(1)
                    If (i And 4) > 0 Then f = f + Cards(0)
                Case 4
                    If (i And 1) > 0 Then f = f + Cards(3)
                    If (i And 2) > 0 Then f = f + Cards(2)
                    If (i And 4) > 0 Then f = f + Cards(1)
                    If (i And 8) > 0 Then f = f + Cards(0)
                Case 5
                    If (i And 1) > 0 Then f = f + Cards(4)
                    If (i And 2) > 0 Then f = f + Cards(3)
                    If (i And 4) > 0 Then f = f + Cards(2)
                    If (i And 8) > 0 Then f = f + Cards(1)
                    If (i And 16) > 0 Then f = f + Cards(0)
            End Select
            If f = 15 Then HowMany = HowMany + 1
        Next
    End Sub

Have your say! (No need for any ID!)