7 lines
162 B
Text
7 lines
162 B
Text
(
|
|
symbol bin
|
|
(int :i ==> str :s)
|
|
(i (dup 2 <) 'string ('odd? ("1") ("0") if swap 1 shr) 'prefix linrec @s)
|
|
) ::
|
|
|
|
(0 1 2 5 50 9000) 'bin map ", " join puts!
|