| a b stdout |
stdout := FileStream stdout.
FileStream stdin
linesDo: [ :line |
line isEmpty ifFalse: [
(a isNil)
ifTrue: [ a := line asNumber ]
ifFalse: [ b := line asNumber ].
].
].
stdout nextPutAll: '和: '; nextPutAll: (a + b) printString; nl;
nextPutAll: '差: '; nextPutAll: (a - b) printString; nl;
nextPutAll: '積: '; nextPutAll: (a * b) printString; nl.
b = 0
ifTrue: [
stdout nextPutAll: 'ゼロで割ろうとしています'; nl
]
ifFalse: [
stdout nextPutAll: '商: '; nextPutAll: (a / b) printString; nl;
nextPutAll: '剰余: '; nextPutAll: (a \\ b) printString; nl.
].
stdout flush.
fCBhIGIgc3Rkb3V0IHwKc3Rkb3V0IDo9IEZpbGVTdHJlYW0gc3Rkb3V0LgpGaWxlU3RyZWFtIHN0ZGluCmxpbmVzRG86IFsgOmxpbmUgfApsaW5lIGlzRW1wdHkgaWZGYWxzZTogWwooYSBpc05pbCkKaWZUcnVlOiBbIGEgOj0gbGluZSBhc051bWJlciBdCmlmRmFsc2U6IFsgYiA6PSBsaW5lIGFzTnVtYmVyIF0uCl0uCl0uCgpzdGRvdXQgbmV4dFB1dEFsbDogJ+WSjDogJzsgbmV4dFB1dEFsbDogKGEgKyBiKSBwcmludFN0cmluZzsgbmw7Cm5leHRQdXRBbGw6ICflt646ICc7IG5leHRQdXRBbGw6IChhIC0gYikgcHJpbnRTdHJpbmc7IG5sOwpuZXh0UHV0QWxsOiAn56mNOiAnOyBuZXh0UHV0QWxsOiAoYSAqIGIpIHByaW50U3RyaW5nOyBubC4KCmIgPSAwCmlmVHJ1ZTogWwpzdGRvdXQgbmV4dFB1dEFsbDogJ+OCvOODreOBp+WJsuOCjeOBhuOBqOOBl+OBpuOBhOOBvuOBmSc7IG5sCl0KaWZGYWxzZTogWwpzdGRvdXQgbmV4dFB1dEFsbDogJ+WVhjogJzsgbmV4dFB1dEFsbDogKGEgLyBiKSBwcmludFN0cmluZzsgbmw7Cm5leHRQdXRBbGw6ICflibDkvZk6ICc7IG5leHRQdXRBbGw6IChhIFxcIGIpIHByaW50U3RyaW5nOyBubC4KXS4KCnN0ZG91dCBmbHVzaC4=