5 lines
212 B
Text
5 lines
212 B
Text
foreach number [5 50 9000] [
|
|
;; any returns first not false value, used to cut leading zeroes
|
|
binstr: copy any [find enbase/flat to binary! number 2 #"1" #"0"]
|
|
print reduce [ pad number -5 binstr ]
|
|
]
|