Arithmetic/Integer: Difference between revisions
Content added Content deleted
(→{{header|Scheme}}: ++ smalltalk) |
(added standard ml) |
||
Line 506: | Line 506: | ||
('a/b=%1' % { a // b }) displayNl. |
('a/b=%1' % { a // b }) displayNl. |
||
('a%%b=%1' % { a \\ b }) displayNl.</lang> |
('a%%b=%1' % { a \\ b }) displayNl.</lang> |
||
=={{header|Standard ML}}== |
|||
<lang sml>val () = let |
|||
val a = valOf (Int.fromString (valOf (TextIO.inputLine TextIO.stdIn))) |
|||
val b = valOf (Int.fromString (valOf (TextIO.inputLine TextIO.stdIn))) |
|||
in |
|||
print ("a + b = " ^ Int.toString (a + b) ^ "\n"); |
|||
print ("a - b = " ^ Int.toString (a - b) ^ "\n"); |
|||
print ("a * b = " ^ Int.toString (a * b) ^ "\n"); |
|||
print ("a div b = " ^ Int.toString (a div b) ^ "\n"); |
|||
print ("a mod b = " ^ Int.toString (a mod b) ^ "\n"); |
|||
print ("~a = " ^ Int.toString (~a) ^ "\n") (* unary negation, unusual notation compared to other languages *) |
|||
end</lang> |
|||
=={{header|Tcl}}== |
=={{header|Tcl}}== |