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 ]
|