Anonymous user
Arithmetic/Integer: Difference between revisions
→{{header|Scheme}}: ++ smalltalk
(m4) |
(→{{header|Scheme}}: ++ smalltalk) |
||
Line 493:
(gcd 8 12) => 4
(lcm 8 12) => 24
=={{header|Smalltalk}}==
{{works with|GNU Smalltalk}}
<lang smalltalk>| a b |
'Input number a: ' display.
a := (stdin nextLine) asInteger.
'Input number b: ' display.
b := (stdin nextLine) asInteger.
('a+b=%1' % { a + b }) displayNl.
('a-b=%1' % { a - b }) displayNl.
('a*b=%1' % { a * b }) displayNl.
('a/b=%1' % { a // b }) displayNl.
('a%%b=%1' % { a \\ b }) displayNl.</lang>
=={{header|Tcl}}==
| |||