Anonymous user
Binary digits: Difference between revisions
m
→{{header|Red}}
m (→{{header|Red}}) |
|||
Line 2,653:
;; any returns first not false value, used to cut leading zeroes
binstr: form any [find enbase/base to-binary number 2 "1" "0"]
print reduce [ pad/left number 5
]
</lang>
| |||