Binary digits: Difference between revisions
Content added Content deleted
m (removed extra </lang>) |
(Add min) |
||
Line 2,137:
io.write_string(int_to_base_string(N, 2), !IO),
io.nl(!IO).</lang>
=={{header|min}}==
{{works with|min|0.19.3}}
<lang min>(2 over over mod 'div dip) :divmod2
(
:n () =list
(n 0 >) (n divmod2 list append #list @n) while
list reverse 'string map "" join
"^0+" "" replace ;remove leading zeroes
) :bin
(5 50 9000) (bin puts) foreach</lang>
{{out}}
<pre>
101
110010
10001100101000
</pre>
=={{header|mLite}}==
|