18 lines
445 B
Plaintext
18 lines
445 B
Plaintext
binary = proc (n: int) returns (string)
|
|
bin: string := ""
|
|
while n > 0 do
|
|
bin := string$c2s(char$i2c(48 + n // 2)) || bin
|
|
n := n / 2
|
|
end
|
|
return(bin)
|
|
end binary
|
|
|
|
start_up = proc ()
|
|
po: stream := stream$primary_output()
|
|
tests: array[int] := array[int]$[5, 50, 9000]
|
|
|
|
for test: int in array[int]$elements(tests) do
|
|
stream$putl(po, int$unparse(test) || " -> " || binary(test))
|
|
end
|
|
end start_up
|