5 lines
160 B
Smalltalk
5 lines
160 B
Smalltalk
accessing
|
|
queryOracles
|
|
| currentRoll |
|
|
currentRoll := self roll.
|
|
^ self oracles detect: [ :each | (each at: 'dice') = currentRoll ] ifNone: [ ^ currentRoll ] |