Drawing cards.

RoloLudo.package/DeckOfCards.class/README.md

@@ -0,0 +1 @@
+I represent a deck of cards. The terminology was taken from [Glossary of card game terms](https://en.wikipedia.org/wiki/Glossary_of_card_game_terms) in Wikipedia.

RoloLudo.package/DeckOfCards.class/instance/draw.st

@@ -0,0 +1,6 @@
+accessing
+draw
+	| taken |
+	taken := self stock atRandom.
+	self drawn add: taken.
+	^ taken

RoloLudo.package/DeckOfCards.class/instance/drawn.st

@@ -0,0 +1,3 @@
+accessing
+drawn
+	^ drawn ifNil: [drawn := OrderedCollection new]

RoloLudo.package/DeckOfCards.class/instance/stock.st

@@ -0,0 +1,3 @@
+accessing
+stock
+	^ stock := self cards copyWithoutAll: self drawn

RoloLudo.package/DeckOfCards.class/properties.json

@@ -1,12 +1,14 @@
 {
-	"commentStamp" : "",
+	"commentStamp" : "<historical>",
 	"super" : "Object",
 	"category" : "RoloLudo",
 	"classinstvars" : [ ],
 	"pools" : [ ],
 	"classvars" : [ ],
 	"instvars" : [
-		"cards"
+		"cards",
+		"drawn",
+		"stock"
 	],
 	"name" : "DeckOfCards",
 	"type" : "normal"