Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
9
Task/Binary-digits/SNOBOL4/binary-digits.sno
Normal file
9
Task/Binary-digits/SNOBOL4/binary-digits.sno
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
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
|
||||
Loading…
Add table
Add a link
Reference in a new issue