base2-digits ( digits radix -- digits' ) (original) (raw)

base2-digits ( digits radix -- digits' )

Vocabulary
math.parser.private

Inputs

digits	an object
radix	an object

Outputs

digits'	an object

Definition

USING: combinators math ;

IN: math.parser.private

: base2-digits ( digits radix -- digits' )
{ { 16 [ 4 * ] } { 8 [ 3 * ] } { 2 [ ] } } case ; inline