9 lines
233 B
Smalltalk
9 lines
233 B
Smalltalk
*Socialmetrica
|
|
asDatesString
|
|
|
|
| dates firstDate |
|
|
dates := self asDatesStrings.
|
|
firstDate := dates first splitOn: ' '.
|
|
firstDate removeLast.
|
|
firstDate:= '' join: firstDate.
|
|
^ firstDate, '→', (dates second copyWithoutAll: ' ') |