Anonymous user
Binary digits: Difference between revisions
no edit summary
(VB6 solution: removed three superfluous lines of code) |
No edit summary |
||
Line 2,637:
sleep 10
</lang>
=={{header|Red}}==
<lang Red>Red []
foreach number [5 50 9000] [
;; any returns first not false value, used to cut leading zeroes
binstr: form any [find enbase/base to-binary number 2 "1" "0"]
print reduce [ pad/left number 5 pad binstr 15 " "]
]
</lang>
'''output'''
<pre> 5 101
50 110010
9000 10001100101000
</pre>
=={{header|Retro}}==
Line 2,720 ⟶ 2,734:
101010111111101001000101110110100000111011011011110111100110100100000100100001111101101110011101000101110110001101101000100100100110000111001010101011110010001111100011110100010101011011111111000110101110111100001011100111110000000010101100110101001010001001001011000000110000010010010100010010000001110100101000011111001000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
</pre>
=={{header|Ring}}==
<lang ring>
| |||