From 9877b71b078e66ada52e4beecb7d8be9c3acbd90 Mon Sep 17 00:00:00 2001 From: CrystalMoogle Date: Tue, 22 Oct 2024 20:21:58 +0100 Subject: [PATCH] Test --- BlackjackGUI/Game.vb | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/BlackjackGUI/Game.vb b/BlackjackGUI/Game.vb index 0a70a60..b4d065e 100644 --- a/BlackjackGUI/Game.vb +++ b/BlackjackGUI/Game.vb @@ -190,14 +190,9 @@ End Function Shared Function CreateDeck() As List(Of (String,String)) - Dim response As New List(Of (String, String)) Dim nums As String() = {"A", "2", "3", "4", "5", "6", "7", "8", "9", "10", "J", "Q", "K"} Dim suits As String() = {"Hearts", "Diamonds", "Spades", "Clubs"} - For Each suit As String In suits - For Each num As String In nums - response.Add((suit, num)) - Next - Next + Dim response As List(Of (String, String)) = (From suit In suits From num In nums Select (suit, num)).ToList() Return Utilities.Shuffle(response) End Function End Class