Anonymous user
Binary digits: Difference between revisions
Adding SequenceL
(Adding SequenceL) |
(Adding SequenceL) |
||
Line 2,478:
110010
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}}==
| |||