Binary digits: Difference between revisions
Content added Content deleted
(Add Mercury.) |
|||
Line 507: | Line 507: | ||
The output is a string containing ascii(48) (i.e. '0') and ascii(49) (i.e. '1'). |
The output is a string containing ascii(48) (i.e. '0') and ascii(49) (i.e. '1'). |
||
=={{header|Mercury}}== |
|||
<lang> |
|||
:- module binary_digits. |
|||
:- interface. |
|||
:- import_module io. |
|||
:- pred main(io::di, io::uo) is det. |
|||
:- implementation. |
|||
:- import_module int, list, string. |
|||
main(!IO) :- |
|||
list.foldl(print_binary_digits, [5, 50, 9000], !IO). |
|||
:- pred print_binary_digits(int::in, io::di, io::uo) is det. |
|||
print_binary_digits(N, !IO) :- |
|||
io.write_string(int_to_base_string(N, 2), !IO), |
|||
io.nl(!IO). |
|||
</lang> |
|||
=={{header|Modula-3}}== |
=={{header|Modula-3}}== |