fork download
  1. | a b stdout stdin lines |
  2. stdout := FileStream stdout.
  3. stdin := FileStream stdin.
  4.  
  5. a := nil.
  6. b := nil.
  7.  
  8. stdin linesDo: [ :line |
  9. line isEmpty ifFalse: [
  10. (a isNil)
  11. ifTrue: [ a := line asNumber ]
  12. ifFalse: [ b := line asNumber ].
  13. ].
  14. ].
  15.  
  16. "和"
  17. stdout nextPutAll: '和: '; nextPutAll: (a + b) printString; nl.
  18. "差"
  19. stdout nextPutAll: '差: '; nextPutAll: (a - b) printString; nl.
  20. "積"
  21. stdout nextPutAll: '積: '; nextPutAll: (a * b) printString; nl.
  22.  
  23. "剰余(余り)"
  24. stdout nextPutAll: '剰余: '; nextPutAll: (a \\ b) printString; nl.
  25.  
  26. b = 0
  27. ifTrue: [
  28. stdout nextPutAll: 'ゼロで割ろうとしています'; nl.
  29. ]
  30. ifFalse: [
  31. "商"
  32. stdout nextPutAll: '商: '; nextPutAll: (a / b) printString; nl.
  33. ].
  34.  
  35. stdout flush.
  36.  
Success #stdin #stdout 0.02s 12388KB
stdin
Standard input is empty
stdout
Object: nil和:  error: did not understand #+
MessageNotUnderstood(Exception)>>signal (ExcHandling.st:254)
UndefinedObject(Object)>>doesNotUnderstand: #+ (SysExcept.st:1448)
UndefinedObject>>executeStatements (prog:17)
Object: nil差:  error: did not understand #-
MessageNotUnderstood(Exception)>>signal (ExcHandling.st:254)
UndefinedObject(Object)>>doesNotUnderstand: #- (SysExcept.st:1448)
UndefinedObject>>executeStatements (prog:19)
Object: nil積:  error: did not understand #*
MessageNotUnderstood(Exception)>>signal (ExcHandling.st:254)
UndefinedObject(Object)>>doesNotUnderstand: #* (SysExcept.st:1448)
UndefinedObject>>executeStatements (prog:21)
Object: nil剰余:  error: did not understand #\\
MessageNotUnderstood(Exception)>>signal (ExcHandling.st:254)
UndefinedObject(Object)>>doesNotUnderstand: #\\ (SysExcept.st:1448)
UndefinedObject>>executeStatements (prog:24)
Object: nil商:  error: did not understand #/
MessageNotUnderstood(Exception)>>signal (ExcHandling.st:254)
UndefinedObject(Object)>>doesNotUnderstand: #/ (SysExcept.st:1448)
UndefinedObject>>executeStatements (prog:32)