Binary digits: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Minor tidy) |
Not a robot (talk | contribs) (add SETL) |
||
| Line 5,371: | Line 5,371: | ||
10000 |
10000 |
||
</pre> |
</pre> |
||
=={{header|SETL}}== |
|||
<syntaxhighlight lang="setl">program binary_digits; |
|||
loop for n in [5, 50, 9000] do |
|||
print(bin n); |
|||
end loop; |
|||
op bin(n); |
|||
return reverse +/[str [n mod 2, n div:=2](1) : until n=0]; |
|||
end op; |
|||
end program;</syntaxhighlight> |
|||
{{out}} |
|||
<pre>101 |
|||
110010 |
|||
10001100101000</pre> |
|||
=={{header|SequenceL}}== |
=={{header|SequenceL}}== |
||
| Line 5,387: | Line 5,402: | ||
["101","110010","10001100101000"] |
["101","110010","10001100101000"] |
||
</pre> |
</pre> |
||
=={{header|Sidef}}== |
=={{header|Sidef}}== |
||
<syntaxhighlight lang="ruby">[5, 50, 9000].each { |n| |
<syntaxhighlight lang="ruby">[5, 50, 9000].each { |n| |
||