7 lines
261 B
Text
7 lines
261 B
Text
[ |:a :b |
|
|
|
|
( a > b ) ifTrue: [ inform: 'a greater than b\n' ].
|
|
( a < b ) ifTrue: [ inform: 'a less than b\n' ].
|
|
( a = b ) ifTrue: [ inform: 'a is equal to b\n' ].
|
|
|
|
] applyTo: {Integer readFrom: (query: 'Enter a: '). Integer readFrom: (query: 'Enter b: ')}.
|