11 lines
306 B
Smalltalk
11 lines
306 B
Smalltalk
accessing
|
|
splitBytimeSpansOf: integerDivisions
|
|
|
|
| borders response |
|
|
response := OrderedDictionary new.
|
|
(self timeSpansOf: integerDivisions) doWithIndex: [ :span :i |
|
|
response
|
|
at: span asDatesString
|
|
put: (self select: [ :message | span includes: (message created asDateAndTime)])
|
|
].
|
|
^ response |