Imports System

Imports System.Collections.Generic

Imports System.Linq

Public Module Module1

    ' Implement the DealHand Function

    ' It takes a deck, which is an array of strings representing each card,

    ' and it takes an integer that indicates the number of cards expected in the result.

    ' Expectations:

    ' 1. The number of cards must match the expected hand size.

    ' 2. The cards dealt must come from the deck.

    ' 3. A card may not be used more than once.

    Private Function DealHand(deck as string(), hand_size as integer) As string()

        ' deck:  Array of strings

        ' hand_size:  Integer

        ' return:  Array of strings

        ' Write your code below this line

        Return {"Joker", "Joker"}

        ' Write your code above this line

    End Function

    ' Feel free to look down here, but don't modify any of it

    Private Function GetDeck() As string()

        Dim result As New List(Of string)

        For Each value In {"Ace", "2", "3", "4", "5", "6", "7", "8", "9", "10", "Jack", "Queen", "King"}        

            For Each suit In {"Spades", "Diamonds", "Clubs", "Hearts"}

                result.Add(value & " of " & suit)

            Next

        Next

        Return result.ToArray()

    End Function

​

    Private Sub VerifyResult(result as string(), handSize as integer)

    If result.Length <> handSize Then

        Console.Out.WriteLine("Error - hand size does not match expected size of " & handSize)

        Exit Sub

    End If

​

    Dim deck as string() = GetDeck()

    For Each card In result

        If Not deck.Contains(card) Then

            Console.Out.WriteLine("Error - found a card that wasn't in the deck.")

            Exit Sub

        End If

        If Array.IndexOf(deck, card) <> Array.LastIndexOf(deck, card) Then

            Console.Out.Writeline("Error - found a card that was used twice.")

            Exit Sub

        End If

    Next

    End Sub

    Public Sub Main()

        Dim deck as string() = GetDeck()

        Dim desiredHandSize as integer = 5

        Dim dealtHand = DealHand(deck, desiredHandSize)

        VerifyResult(dealtHand, desiredHandSize)

    End Sub

End Module