RosettaCodeData/Task/Binary-digits/SNOBOL4/binary-digits.sno

10 lines
182 B
Plaintext

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