9 lines
182 B
Text
9 lines
182 B
Text
define('bin(n,r)') :(bin_end)
|
|
bin bin = le(n,0) r :s(return)
|
|
bin = bin(n / 2, REMDR(n,2) r) :(return)
|
|
bin_end
|
|
|
|
output = bin(5)
|
|
output = bin(50)
|
|
output = bin(9000)
|
|
end
|