Arithmetic/Integer: Difference between revisions

Content added Content deleted
Line 2,193: Line 2,193:
if -d- /hasvalue yes goto :a else goto :end
if -d- /hasvalue yes goto :a else goto :end
:end</lang>
:end</lang>

=={{header|Prolog}}==

Integer quotient (`//`) rounds towards 0.

Remainder (`rem`) matches the sign of its first operand.

<lang prolog>

print_expression_and_result(M, N, Operator) :-
Expression =.. [Operator, M, N],
Result is Expression,
format('~w ~8|is ~d~n', [Expression, Result]).

arithmetic_integer :-
read(M),
read(N),
maplist( print_expression_and_result(M, N), [+,-,*,//,rem,^] ).

</lang>

Use thus:

<lang prolog>
?- arithmetic_integer.
|: 5.
|: 7.
5+7 is 12
5-7 is -2
5*7 is 35
5//7 is 0
5 rem 7 is 5
5^7 is 78125
true.
</lang>


=={{header|PureBasic}}==
=={{header|PureBasic}}==