From 6a8ff0ff2a09e7fe896d5fff3dda047bef6d1ced Mon Sep 17 00:00:00 2001 From: Frederick Yin Date: Wed, 4 Jan 2023 20:40:46 +0800 Subject: Full decks and shuffling --- Player.hs | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 Player.hs (limited to 'Player.hs') diff --git a/Player.hs b/Player.hs new file mode 100644 index 0000000..8a2adb6 --- /dev/null +++ b/Player.hs @@ -0,0 +1,9 @@ +module Player where + +import Card (Card) +import qualified Card + +data Player = Player { name :: String + , penalty :: Integer + , cards :: [Card] + } -- cgit v1.2.3