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}}== |