16 lines
229 B
Text
16 lines
229 B
Text
fn bin(a,b:true)
|
|
var c:""
|
|
while a>0 do
|
|
c,a:tostring(a%2)+c,bit.rshift(a,1)
|
|
cls
|
|
if b then
|
|
c:string.repeat("0",16-#c)+c
|
|
cls
|
|
return c
|
|
cls
|
|
|
|
var List: [5,50,9000]
|
|
|
|
iter Value of List do
|
|
log(Value+": "+bin(Value,false))
|
|
cls
|