>quint ( m bits -- str )

Vocabulary

proquint

Inputs

m	an object
bits	an object

Outputs

str

an object

Definition

USING: kernel make math math.bitwise proquint.private sequences
;

IN: proquint

: >quint ( m bits -- str )
    [
        [ dup 0 > ]
        [ [ [ 16 bits >quint16 , ] [ -16 shift ] bi ] dip 16 - ]
        while 2drop
    ] { } make reverse "-" join ;