Binary digits: Difference between revisions
Add BCPL
Not a robot (talk | contribs) (Add BCPL) |
|||
Line 1,223:
9000
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}}==
| |||