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