Binary digits: Difference between revisions
Content added Content deleted
m (removed extra </lang>) |
(Add min) |
||
| Line 2,137: | Line 2,137: | ||
io.write_string(int_to_base_string(N, 2), !IO), |
io.write_string(int_to_base_string(N, 2), !IO), |
||
io.nl(!IO).</lang> |
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}}== |
=={{header|mLite}}== |
||