Credits

Tuesday, October 9, 2012

Input with Mercury Programming

In a previous post, I introduced Mercury programming, a new logic - functional programming language that can work in various backends particularly C or Java among others.

Command - line input can be possible with Mercury as stated in the example below.  After compilation, you can enter, arith_int 4 5

[+/-] show/hide

% program to perform arithmetic operations on 2 integers
:- module arith_int.
:- interface.
:- import_module io.
:- pred main(io::di, io::uo) is det.
:- implementation.
:- import_module int, list, string.
main(!IO):-
io.command_line_arguments(Args,!IO),
( if Args = [AStr, BStr],
 string.to_int(AStr, A),
 string.to_int(BStr, B)
then
io.format("A + B =%d\n", [i(A + B)],!IO),
io.format("A - B =%d\n", [i(A - B)],!IO),
 io.format("A * B =%d\n", [i(A * B)],!IO),
% Division: round towards zero.
io.format("A / B =%d\n", [i(A / B)],!IO),
% Division: round towards minus infinity.
 io.format("A div B =%d\n", [i(A div B)],!IO),
% Modulus: X mod Y = X - (X div Y) * Y.
 io.format("A mod B =%d\n", [i(A mod B)],!IO),
% Remainder: X rem Y = X - (X / Y) * Y.
 io.format("A rem B =%d\n", [i(A rem B)],!IO),
% Exponentiation is done using the function int.pow/2.
 io.format("A `pow` B =%d\n", [i(A `pow` B)],!IO) else io.set_exit_status(1,!IO) ).

AddThis