10 lines
209 B
Smalltalk
10 lines
209 B
Smalltalk
accessing
|
|
cards
|
|
| response |
|
|
response := OrderedCollection new.
|
|
self suits keysDo: [:suit |
|
|
(self numeralCards, self faceCards) do: [:number|
|
|
response add: number asString, suit.
|
|
].
|
|
].
|
|
^ response |