From 01148a563d4739573b08f7a2ee80078a90232fd6 Mon Sep 17 00:00:00 2001 From: Frederick Yin Date: Wed, 4 Jan 2023 20:47:59 +0800 Subject: Add showCard --- Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index b858907..e42a3f0 100644 --- a/Main.hs +++ b/Main.hs @@ -1,6 +1,6 @@ import System.Random (getStdGen) -import Card (fullDecks, shuffle) +import Card (fullDecks, showCard, shuffle) main = do gen <- getStdGen - print $ shuffle gen $ fullDecks 1 + print $ map showCard $ shuffle gen $ fullDecks 2 -- cgit v1.2.3