7 lines
233 B
Smalltalk
7 lines
233 B
Smalltalk
|
accessing
|
||
|
|
stockCardsInSuit: aString
|
||
|
|
| response suitCards |
|
||
|
|
response := '' writeStream.
|
||
|
|
suitCards := self stock select: [ :card | card endsWith: aString ].
|
||
|
|
suitCards do: [ :card | response nextPutAll: card ].
|
||
|
|
^ response contents
|