Binary digits: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add BCPL) |
|||
| Line 1,223: | Line 1,223: | ||
9000 |
9000 |
||
quit</lang> |
quit</lang> |
||
=={{header|BCPL}}== |
|||
<lang bcpl>get "libhdr" |
|||
let writebin(x) be |
|||
$( let f(x) be |
|||
$( if x>1 then f(x>>1) |
|||
wrch((x & 1) + '0') |
|||
$) |
|||
f(x) |
|||
wrch('*N') |
|||
$) |
|||
let start() be |
|||
$( writebin(5) |
|||
writebin(50) |
|||
writebin(9000) |
|||
$)</lang> |
|||
{{out}} |
|||
<pre>101 |
|||
110010 |
|||
10001100101000</pre> |
|||
=={{header|Beads}}== |
=={{header|Beads}}== |
||