5 lines
203 B
Smalltalk
5 lines
203 B
Smalltalk
accessing
|
|
oldest
|
|
self messages ifNil: [ ^ nil ].
|
|
self messages ifEmpty: [ ^ nil ].
|
|
^ (self select:[ :tweet | tweet created = ((self collect: [ :each | each created ]) asSortedCollection first)]) first |