9 lines
189 B
Smalltalk
9 lines
189 B
Smalltalk
accessing
|
|
printOn: aStream
|
|
super initialize.
|
|
self class suits keysDo: [ :suit |
|
|
aStream
|
|
nextPutAll: (self stockCardsInSuit: suit);
|
|
nextPutAll: String cr.
|
|
].
|
|
^ aStream contents. |