Binary digits: Difference between revisions
Content added Content deleted
(Adding SequenceL) |
m (→{{header|SequenceL}}: Removing duplicate SequenceL. Webpage timed out ad request submitted twice.) |
||
| Line 2,478: | Line 2,478: | ||
110010 |
110010 |
||
10001100101000</pre> |
10001100101000</pre> |
||
=={{header|SequenceL}}== |
|||
<lang sequencel>main := toBinaryString([5, 50, 9000]); |
|||
toBinaryString(number(0)) := |
|||
let |
|||
val := "1" when number mod 2 = 1 else "0"; |
|||
in |
|||
toBinaryString(floor(number/2)) ++ val when floor(number/2) > 0 |
|||
else |
|||
val;</lang> |
|||
{{out}} |
|||
<pre> |
|||
["101","110010","10001100101000"] |
|||
</pre> |
|||
=={{header|SequenceL}}== |
=={{header|SequenceL}}== |
||