mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-24 05:43:53 +00:00
53 lines
1.2 KiB
Mathematica
53 lines
1.2 KiB
Mathematica
% A very basic check of integer arithmetic.
|
|
|
|
:- module arithmetic.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io__state, io__state).
|
|
:- mode main(di, uo) is det.
|
|
|
|
:- implementation.
|
|
:- import_module int, string, list.
|
|
|
|
main -->
|
|
test(3, 4).
|
|
|
|
:- pred test(int, int, io__state, io__state).
|
|
:- mode test(in, in, di, uo) is det.
|
|
|
|
test(X, Y) -->
|
|
{
|
|
Plus is X + Y,
|
|
Times is X * Y,
|
|
Minus is X - Y,
|
|
Div is X // Y,
|
|
Mod is X mod Y,
|
|
LeftShift is X << Y,
|
|
RightShift is X >> Y,
|
|
BitAnd is X /\ Y,
|
|
BitOr is X \/ Y,
|
|
BitXor is X ^ Y,
|
|
BitNeg is \ X
|
|
},
|
|
write_message("X: ", X),
|
|
write_message("Y: ", Y),
|
|
write_message("X + Y: ", Plus),
|
|
write_message("X * Y: ", Times),
|
|
write_message("X - Y: ", Minus),
|
|
write_message("X / Y: ", Div),
|
|
write_message("X mod Y: ", Mod),
|
|
write_message("X << Y: ", LeftShift),
|
|
write_message("X >> Y: ", RightShift),
|
|
write_message("X /\\ Y: ", BitAnd),
|
|
write_message("X \\/ Y: ", BitOr),
|
|
write_message("X ^ Y: ", BitXor),
|
|
write_message("\\ X: ", BitNeg).
|
|
|
|
:- pred write_message(string, int, io__state, io__state).
|
|
:- mode write_message(in, in, di, uo) is det.
|
|
|
|
write_message(String, Int) -->
|
|
io__write_string(String), io__write_int(Int), io__write_string("\n").
|
|
|