6 lines
126 B
Smalltalk
6 lines
126 B
Smalltalk
accessing
|
|
draw: card
|
|
self stock
|
|
detect: [ :each | each = card ]
|
|
ifFound: [self drawn add: card ]
|
|
ifNone: [ ^ nil ] |