Binary digits: Difference between revisions
Add Cowgol
(Simpler Tcl version) |
Not a robot (talk | contribs) (Add Cowgol) |
||
Line 1,691:
50:> 110010
9000:> 10001100101000</pre>
=={{header|Cowgol}}==
<lang cowgol>include "cowgol.coh";
sub print_binary(n: uint32) is
var buffer: uint8[33];
var p := &buffer[32];
[p] := 0;
while n != 0 loop
p := @prev p;
[p] := ((n as uint8) & 1) + '0';
n := n >> 1;
end loop;
print(p);
print_nl();
end sub;
print_binary(5);
print_binary(50);
print_binary(9000);</lang>
{{out}}
<pre>101
110010
10001100101000</pre>
=={{header|Crystal}}==
| |||