8 lines
250 B
Smalltalk
8 lines
250 B
Smalltalk
accessing
|
|
randomName
|
|
| response|
|
|
response := self namesOracle.
|
|
^ {'Given name' -> (response at: 'givenNames') atRandom.
|
|
'callsign' -> (response at: 'callsigns') atRandom.
|
|
'Familiy name' -> (response at: 'familyNames') atRandom.
|
|
} asDictionary. |